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IDENTIFICATION 


PRODUCT CODE: AC-A829B-MC 
PRODUCT NAME: CZDXJBO DX11-B ADRSNG TST 


DATE: APRIL, 1980 
MAINTAINER: DIAGNOSTIC PROGRAMMING 
AUTHOR: R. MISNER 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
ci ene FOR ANY ERRORS THAT MAY APPEAR IN THIS 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM 
AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) 
ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED 
IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
THAT IS NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1977,1980 BY DIGITAL EQUIPMENT CORPORATION 
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GENERAL PROGRAM INFORMATION 
ABSTRACT 


THIS PROGRAM IS A SUPPLEMENT TO DZDXA AND DZDXF DX11-8 
MAINTENANCE MODE DIAGNOSTICS AND IS A FUNCTIONAL CHECK THE 
ABILITY OF THE DX TO ACCESS ALL AREAS OF MEMORY USING DIFFERENT 
SOURCES FOR THE NPR DATA ADDRESS. IT IS ASSUMED THAT DZDXA AND 
DZDXF HAVE ALREADY BEEN RUN. THE THREE NPR ADDRESS SOURCES 
RESULT FROM DATA WRITES TO MEMORY, a ie POINTER WORD (SPW) 
FETCHES, AND DEVICE STATUS TABLE (DST) FETCHES. 

DIAGNOSIS IS BASED ON THE ASSUMPTION THAT THE CPU CAN ACCESS 
. ae WHILE THE DX‘*S ADDRESSING CAPABILITY 

ERROR MESSAGES DESCRIBE THE FAILING ADDRESS SOURCE AND THE 
EXPECTED LOCATION OF THE DX ACCESS. THE ACTUAL DX ADDRESS 

OF THE ACCESS CANNOT BE DETERMINED. 

THE OPERATOR oo IS DESIGNED TO BE COMPATIBLE WITH 

DZDXA AND DZDXF 


SYSTEM REQUIREMENTS 


THIS PROGRAM REQUIRES ANY aay tae WITH AT LEAST 

8K OF MEMORY BUT NOT MORE T 128K; THE DX11-B AND A CONSOLE 
TERMINAL. THE PROGRAM WILL RUN UNDER XXDP,ACT. SLIDE, AND 

STAND ALONE. THIS PROGRAM HAS NOT BEEN TESTED ON CPU'S WITHOUT 
A SWITCH REGISTER. 


RELATED DOCUMENTS AND STANDARDS 


PROGRAM IS ASSEMBLED USING SYSMAC MD-11-DZQAC-C3 AND 
CONFORMS TO THE ACT INTERFACE AUTOCAT-11-QZAUB-8-D 


IT IS ASSUMED THAT DZDXA,DZDXF, AND APPROPRIATE MEMORY 
DIAGNOSTICS ARE RUN ERROR FREE IN ORDER FOR THE ERROR 
MESSAGES IN THIS DIAGNOSTIC TO BE MEANINGFUL. 


ASSUMPTIONS 


THIS PROGRAM ASSUMES THAT THE CPU, UNIBUS ADDRESSING, 
AND PORTIONS OF THE DX11-B TESTED BY DZDXA AND DZDXF ARE 
a ieee eee IN ORDER FOR THE ERROR MESSAGES TO BE 


ee ee 


————— 
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2.0 OPERATING INSTRUCTIONS 


2.1 LOADING AND STARTING 


USE STANDARD LOADING PROCEDURES FOR PDP11 UNDER THE 
ABSOLUTE LOADER, XXDP, SLIDE, OR ACT. START AT ADDRESS 200. 
THE PROGRAM WILL PRINT OUT THE MAINDEC NUMBER AND TITLE AND 
A_PROMPTING MESSAGE AS FOLLOWS: 
"TYPE: <D>,FOR DEFAULT PARAMETERS 

<P>,FOR PREVIOUS PARAMETERS 

<S>,FOR SELECT PARAMETERS 

<N>,FOR START WITH THIS TEST NO. 


D.P.S,N?"’ 


THE OPERATOR MUST RESPOND WITH A D OR S IF THIS IS THE 

FIRST START SINCE THE PROGRAM HAS BEEN LOADED INTO MEMORY. IF, 
IN RESPONSE TO THIS MESSAGE, THE OPERATOR TYPES AN S<CR> THE 
FOLLOWING — COULD TAKE PLACE: 


"TEST : 1<CR> 

BASE ADDRESS: 176200<CR> 
VECTOR ADDRESS: 300<CR> 

DX PRIORITY LEVEL: 4<CR>"" 


NOTE: THE ABOVE RESPONSES ARE THE DEFAULT PARAMETERS 

AND ARE EQUIVALENT TO TYPING A D<CR> IN RESPONSE TO D,P,S,N? 

A <CR> RESPONSE FOR A PARTICULAR ENTRY WILL SELECT THE DEFAULT 
VALUE. A CONTROL C AT ANY TIME WILL TAKE THE PROGRAM BACK TO THE 
PARAMETER ENTRY SECTION. RESPONSE TO THE CONTROL C MAY BE SLOW 

IF THE PROGRAM IS IN A PARTICULARLY LONG TEST. ALL PARAMETERS ARE 
CHECKED TO SEE IF THEY ARE IN A LOGICAL RANGE. IF NOT, THE ENTRY 
IS REQUESTED AGAIN. 


WwN— 


SSRIKERANISYSLRUROVVI Sava aranwae 


141 THE PROGRAM IS ASKING FOR THE STARTING TEST NUMBER. 1 


"TEST NUMBER:*' 
142 THRU 4 ARE VALID RESPONSES. THIS IS THE STARTING TEST 
143 NUMBER. TO LOOP ON A PARTICULAR TEST TYPE THE TEST NUMBER IN 
Le RESPONSE TO THIS MESSAGE AND SET SWITCH 14 ON THE CONSOLE. 
146 
ved "BASE ADDRESS:'' 
149 THIS IS A REQUEST FOR THE BASE ADDRESS OF THE DX IN THE 
150 UNIBUS ADDRESS SPACE. IT IS ALSO THE ADDRESS OF THE DXDS. ALL 
151 OTHER DX CONTROL AND STATUS REGISTER ADDRESSES ARE GENERATED 
152 FROM THIS ENTRY. 
153 
154 
Fy “VECTOR ADDRESS:** 
157 THIS IS A REQUEST FOR THE DX11-8 INTERRUPT VECTOR 
158 ADDRESS. 


ee ee eee — --- = —_ 
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159 
160 
ie> "DX PRIORITY LEVEL’ 
163 THIS IS A REQUEST FOR THE DX'S INTERRUPT PRIORITY LEVEL. 
be: IT IS NOT USED BY THIS PARTICULAR PROGRAM, 
166 
+4 "SET SWITCHES:** 
169 THIS IS A REMINDER TO SET THE CONSOLE SWITCHES BEFORE 
170 STARTING THE PROGRAM. AFTER SETTING SWITCHES, RESPOND WITH A 
a <CR>. CONSOLE SWITCHES HAVE THE FOLLOWING MEANING: 
173 SwW<15> HALT ON ERROR 
174 SW<14> LOOP ON ERROR OR TEST 
175 SW<13> INHIBIT ERROR PRINTOUT 
176 SW<12> PRINT ONLY SHORT ERROR REPORT 
SW<11> INHIBIT ITERATIONS 
SW<10> INHIBIT MEMORY MGT USE 


TESTING WILL_COMMENCE AS SOON AS A <CR> IS GIVEN 
IN RESPONSE TO THE ‘'SET SWITCHES:'* MESSAGE. 


THIS PROGRAM AUTO SIZES THE MEMORY. THE CONTROL UNiT 
ADDRESS AND DEVICES PER CONTROL UNIT ARE ALSO AUTO SIZED. 
THIS PARTICULAR PROGRAM DOES NOT NEED THE ‘LEGAL COMMANDS'' 
FACILITY USED BY OTHER DX DIAGNOSTICS. 


— 2.2 SPECIAL ENVIRONMENTS 


THIS PROGRAM WIIL RUN IN UNATTENDED MODE UNDER ACT. 


€.3 PROGRAM OPTIONS 


lee et ed od od) = =o) 8) 2) od od on“ 2) I I 6) 
KARUN LESEGRARAVAS IAN 


>?) 
N 


SEE SECTION 2.1 FOR PARAMETER SELECTION AND OPTIONS. 

NOTE THAT ALL CONSOLE SWITCH CHANGES a EFFECTIVE IMMEDIATELY 
EXCEPT SwW<10> “"INHIBIT MEMORY MANAGEMENT USES’. IN ORDER TO 
CHANGE THE MEANING OF SwW<10> SET THE SWITCH THEN RESTART THE 
PROGRAM VIA CONTROL C OR START AT ADDRESS 200. 


2.4 EXECUTION TIMES 


SELRARES CS SS 


SINGLE PASS EXECUTION TIME IS VARIABLE DEPENDING ON 

MEMORY SIZE. A PDP-11/45 WITH 65K WORDS OF MEMORY REQUIRES 
50 SECONDS. EACH ROUTINE HAS A SINGLE ITERATION REGARDLESS 
ai END PASS IS SIGNALED AFTER ALL TESTS HAVE BEEN RUN 


| 
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SEQ 0005 


ERROR INFORMATION 


ERROR PC: XXXXXX ERROR NO. YYYYY 


THIS GIVES THE PROGRAM COUNTER (XXXXXX) WHERE THE ERROR 
WAS DETECTED AND A UNIQUE ERROR NUMBER OR IDENTIFIER (YYYYYY) 


THIS LINE GIVES A UNIQUE ERROR MESSAGE FOR EACH ERROR 
TYPE EXPLAINING THE SUSPECTED CAUSE OF THE FAILURE. THIS IS 
THE LAST LINE OF THE MESSAGE IF SWITCH 12 IS ON. 


TEST NO. XXXXXX 


THIS IDENTIFIES THE TEST NUMBER (XXXXXX = 1-4) WHERE THE 
FAILURE WAS DETECTED. 


VIRT ADDR OF BUFFER BASE: XXXXXX 


THIS GIVES THE VIRTUAL ADDRESS OF THE LOWEST LOCATION 
IN THE BUFFER WHICH THE DX WAS ACCESSING AT THE TIME OF ERROR. 


PHY ADDR OF BUFFER: XXXXXX 


THIS GIVES THE PHYSICAL ADDRESS OF THE BUFFER BASE. ONLY 
OUTPUT IF MEMORY MANAGEMENT IS IN USE 


EA BITS IN OCT: XXXXXX 
THE LOW TO BITS OF XXXXXX ARE THE EXTENDED ADDRESS BITS 


USED IN ACCESSING THE FAILING MEMORY LOCATION. ONLY OUTPUT IF 
MEMORY MANAGEMENT IN USE. 


a eee a ——— a 


AE RO Ea a IRN ple 
| 


CZDXJEO DX11-B ADDRESSING TEST MACY11 30A(1052) 
24-MAR-80 09:31 


CZDXJB.P11 


NOTE: 


4.0 





me a ee ee eee ——— eee 


G 1 
24-MAR-80 09:45 PAGE 7 


VIRT ADDR OF ACCESS ERROR: XXXXXX 


THIS MESSAGE IS ONLY OUTPUT FOR TEST 2. IT GIVES THE 
EXPECTED WORD LOCATION OF THE FAILING ACCESS. 


LINE 7-8 ALTERNATE 
ACTUAL: XXXXX EXPECTED: XXXXXX 


IN SOME TESTS, THIS GIVES THE ACTUAL AND EXPECTED BYTE 
OF DATA. THIS WILL GIVE INSIGHT INTO FAILING ADDRESSES AS THERE 
oy CORRESPONDENCE BETWEEN THIS DATA AND THE LOCATION OF THE 


AT THE END OF THE FIRST PASS EXECUTION THE FOLLOWING 
MESSAGE IS PRINTED: 


1ST IBM DEV RCGNZD. OCTAL: XXXXXX 
SIZE OF 1ST DEV GROUP: YYYYYY 


THIS IS NOT AN ERROR MESSAGE BUT IS AN INDICATION OF 
HOW THE JUMPERS ARE SET UP ON MODULE A20. THIS INFOR- 
MATION IS PROVIDED ONLY AS A CONVENIENCE FOR THE 
OPERATOR. SEE MAINTENANCE MANUAL EK-DX11B-™-002 
PARA. 2.4.2 FOR MORE INFORMATION. 


PROGRAM ORGANI ZATION 


SEQ 0006 
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354 4.2 TEST DESCRIPTIONS 


357 4.2.1 TST 1 
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SEQ 0008 
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MODULE 3.0.1 FAST NPR DATA TEST 


THIS IS A FUNCTIONAL TEST TO CHECK THE ABILITY OF THE DX TO DO NPR'S 


OF DATA INTO MEMORY WITH LARGE BYTE COUNTS. THE DXBA IS CHECKED 
FOR ITS ABILITY TO COUNT AND ALL CARRIES IN THE COUNTER ARE 
EXERCISED. THE DATA TRANSFERS ACCESS ALL AVAILABLE MEMORY EXCEPT 
erty PROGRAM IS LOCATED, AND THE AREA WHICH MAY BE OCCUPIED BY 


4.2.2 TST 2 


MODULE 3.0.2 NPR DATA ADDR UNIQUENESS TEST 


THIS MODULE TESTS THE DX11°S ABILITY TO UNIQUELY ADDRESS EACH 
WORD OF MEMORY. THIS TEST IS ACCOMPLISHED BY WRITING A BACKGROUND 
IN A BLOCK OF MEMORY. A WORD IS THEN TRANSFERRED FROM THE DX 

TO THE MEMORY BLOCK. THE CPU CHECKS THAT THE WORD ARRIVES AT 

ITS EXPECTED DESTINATION. IF YES THE WORD IS RESTORED TO MATCH 
THE BACKGROUND, AND THE NEXT WORD IS TESTED. THIS IS REPEATED 
FOR EACH WORD IN THE BLOCK AND FOR EACH BLOCK IN MEMORY. 


NOTE: THIS TEST MAY NOT phy ADDRESSING PROBLEMS 
WHICH ARE COMMON TO THE CPU AND DX11. I.E. UNIBUS ADDRESSING 
PROBLEMS. 

4.2.35 TST 3 


MODULE 3.0.3 SPW ADDRESSING TEST 


THIS MODULE TESTS THE ABILITY OF THE DX TO ACCESS THE STATUS 
POINTER WORD (SPW) TABLE IN ALL POSSIBLE LOCATIONS IN MEMORY. 
A BASE ADDRESS FOR THE SPW IS GENERATED 

THIS SPW TABLE IS FILLED WITH A PATTERN OF OOODEV 

WHERE DEV IS EQUAL TO THE DISPLACEMENT OF THE WORD FROM THE 
SPW BASE; I.E. 

SPW BASE = 

SPW BASE +7 =000001 


SPW BASE+255=000577 


GIVING A TOTAL OF 256 WORDS FOR THE SPW TABLE WITH IMMEDIATE 
STATUS EQUAL TO THE DEVICE NUMBER. 

AN ISS SEQUENCE IS INITIATED WITH A DEVICE # OF 0. IF 

ADRECC AND ADRECD DON'T COME ON FOR THIS DEV, NO TESTING IS DONE, 
THE DEV # IS INCREMENTED, AND ISS IS DONE AGAIN 

IF ADRECC AND ADRECD COME ON IT MEANS THE DX JUMPERS ARE CUT TO 
RESPOND TO THIS DEV NUMBER. THE ISS SEQUENCE IS THEN CONTINUED 
UNITL_ THE STATUS IS IN THE DXOS REG. THIS STATUS IS THEN 

CHECKED AND SHOULD BE EQUAL TO THE DEV # IF THE SPW WAS 
ACCESSED CORRECTLY. 


THIS PROCEDURE IS REPEATED FOR ALL 256 POSSIBLE DEVICES AT 
ALL POSSIBLE LOCATIONS FOR THE SPW. 


ee — ——— —- = 
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416 

417 THE FIRST PECOGNIZED DEV NO. AND COUNT OF THE FIRST 

418 GROUP OF RECOGNIZED DEVICES IS SAVED AND PRINTED AT END 

419 PASS TIM:. IF NO DEV IS RECOGNIZED AND ERROR MESSAGE 

“ IS OUTPUT AT THE END OF THE TEST. 

ose 4.2.4 TST 4 

aS¢ MODULE 3.0.4 DEVICE STATUS TABLE (DST) ACCESS TEST 

426 THIS TEST CHECKS THE ABILITY TO ACCESS ALL BYTES OF THE 

427 DST_IN ALL AREAS OF MEMORY. THE OBJECTIVE IS TO CHECK LOADING 
cs OF THE DXBA FROM THE SPW DST BASE, AND COMMAND (CUCR) 

430 A VALID IBM DEVICE FROM TST3 IS CHECKED. THEN A BASE ADDR 

431 IS GENERATED FOR THE DST. EACH BYTE OF THE DST IS THEN LOADED 
cet WITH ITS OFFSET FROM THE DST BASE. 

434 A SPW ENTRY FOR THE VALID IBM DEVICE IS GENERATED WITH AP- 
435 PROPRIATE DST BASE AND ZERO IMMEDIATE STATUS TO ASSURE A DST 
436 ACCESS. AN ISS SEQUENCE IS DONE WITH THE VALID DEV AND 

437 EVERY POSSIBLE IBM COMMAND THEREBY ACCESSING EVERY LOCATION 
438 IN THE DST. AFTER THE ISS, THE STATUS WILL EQUAL THE COMMMAND 
tin o AND ERROR IS FLAGGED. 


eee ee ——_—_ 


SEQ 0010 
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SEQ 0011 

441 
442 .NLIST CND,MC,TOC 
443 LIST ME 
ud - ENABL 
445 .TITLE C2DXJBO “xt 1-8 ADDRESSING TEST 
446 :*COPYRIGHT (C) -1977 
447 ; *DIGITAL EQUIPMENT CORP. 
448 ;*MAYNARD, MASS. 01754 
450 : PROGRAM BY R. MISNER 
452 « eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
453 ;*PACKAGE (MAINDEC=11-DZQAC~C3), JAN 19, 1977. 
455 000001 $TN=1 
456 160000 $SWR=160000 :HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
497 ’SBITL. BASIC DEFINITIONS 
459 :*INITIAL ADDRESS OF THE STACK POINTER *** 1100 «xx 

001100 STACK= 1100 
461 -EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
462 -EQUIV IOT,SCOPE ::BASIC DEFINITION OF SCOPE CALL 
464 :*MISCELLANEOUS DEFINITIONS 
465 000011 HT= 11 ::CODE FOR HORIZONTAL TAB 
466 000012 LF= 12 >: CODE FOR LINE FEED 
467 000015 CR= 15 :;CODE FOR CARRIAGE RETURN 
468 000200 CRLF= 200 :CODE FOR CARRIAGE RETURN-LINE FEED 
469 177776 PS= 177776 = :PROCESSOR STATUS WORD 
470 .EQUIV PS.PSW 
471 177774 STKLMT= 177774 ::STACK LIMIT REGISTER 
472 177772 PIRQ= 177772 =PROGRAM INTERRUPT REQUEST REGISTER 
473 177570 DSWR= 177570 * :HARDWARE SWITCH REGISTER 
424 177570 ODISP= 177570 : :HARDWARE DISPLAY REGISTER 


476 ; *GENERAL PURPOSE REGISTER DEFINITIONS 
RO= %0 NERAL REGIS 


477 000000 a3 TER 
478 000001 R1i= %1 3;GENERAL REGISTER 
479 000002 R2= X%2 7:GENERAL REGISTER 
480 000003 R3= 3 3 RAL REGISTER 
481 000004 R4= 24 3; GENERAL REGISTER 
482 000005 R5= x5 :: GENERAL REGISTER 
483 000006 R6= 26 3:GENERAL REGISTER 
484 000007 R7= %7 ;:GENERAL REGISTER 
485 000006 SP= %6 ::STACK POINTER 
rr, 000007 PC= %7 :;PROGRAM COUNTER 
488 ;*PRIORITY LEVEL DEFINITIONS 

489 PRO= 0 : PRIORITY LEVEL O 
490 PR1= 40 : PRIORITY LEVEL 1 
491 0001 PR2= 100 > PRIORITY LEVEL ¢ 
492 000140 PR3= 140 $3 ITY LEVEL 
493 000 PR4= 200 : PRIORITY LEVEL 4 
494 000240 PR5= 240 ::PRIORITY LEVEL 5 
495 000 PR6= 300 ::PRIORITY LEVEL 6 
496 000340 PR7= 340 ::PRIORITY LEVEL 7 


on 
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1 BASIC DEFINITIONS 


i REGISTER’’ SWITCH DEFINITIONS 


;*DATA 
BIT15= 





SEQ 0012 
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000259 


177572 
177574 
177576 
172516 


31 


BASIC DEFINITIONS 


meme ee ee ee ——e es es = 
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; *BASIC "‘CPU'' TRAP VECTOR ADDRESSES 


T 
PIRQVEC= 
. SBTTL 


240 


PROGRAM 
MEMORY MANAGEMENT’ DEF INITIONS 


:*KT11 VECTOR ADDRESS 


MMVEC= 


250 


; TIME OUT AND OTHER ERRORS 
Hi AND ILLEGAL INSTRUCTIONS 


;; TRACE TRAP 
; sBREAKPOINT TRAP (BPT) 
oon tha TRAP (IOT) **SCOPE** 


AIL 
;sEMULATOR TRAP (EMT) **ERROR** 
;;''TRAP** TRAP 


sett KEYBOARD VECTOR 
sTTY PRINTER VECTOR 
INTERRUPT REQUEST VECTOR 


;*KT11 STATUS REGISTER ADDRESSES 


SRO= 


SR3= 


177572 
177574 
177576 
172516 


;*KERNEL ‘‘I'* PAGE DESCRIPTOR REGISTERS 


KIPDRO= 1723 


172316 


;*KERNEL ‘‘I** PAGE ADDRESS REGISTERS 


KIPAR7= 


172356 


DONE =200 
SOS IEN=4 
SELO=20020 
HLDO=40000 


CMDO=2000 
SRVO=1000 
ADRO=4000 


ee —_——- - — -- — — 


SEQ 0013 
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609 

610 

611 000000 
612 

613 

614 

615 000174 
616 000174 000000 
ot 000176 000000 
619 000200 000137 
620 

621 

622 

623 

624 000204 
625 6 
626 000046 001566 
627 000052 
628 000052 04 

629 000204 
630 001000 
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001164 


~SBTTL TRAP CATCHER 


=0 
*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A *' ~+2,HALT"’ 
: # SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
Ruaaneter" e. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: “WORD 0 ;sSOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 ;sSOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
MP ST 


J T ;;JUMP TO STARTING ADDRESS OF PROGRAM 
-SBTTL ACT11 HOOKS 


SERRE AAA ERERERREEE 


HOOKS y ow BY ACT11 


P :SAVE PC 
$ENDAD ::1)SET LOC.46 TO ADDRESS OF $SENDAD IN .$EOP 
"WORD 40000 ::2)SET LOC.52 TO 40000 
-=$SVPC = * RESTORE PC 


mr rr a ee el eel oe 


SEQ 0014 


ee 
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63) .-SBTTL COMMON TAGS 
| 633 SEERA AERA RARER EERE AEE EEE EE 
634  STHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
Pe :*USED IN THE PROGRAM, 
637 001100 -=1100 
638 001100 SCMTAG: 3; START OF COMMON TAGS 
639 001100 000000 SPASS: .WORD 0 :;CONTAINS PASS COUNT 
640 001102 000 STSTNM: .BYTE 0 3; CONTAINS THE ie NUMBER 
641 001103 000 SERFLG: .BYTE 0 3; CONTAINS ERROR FLAG 
642 001104 000000 SICNT: . 0 3; CONTAINS SUBTEST ITERATION COUNT 
643 001106 000000 $LPADR: .WORD 0 ;;CONTAINS SCOPE LOOP ADDRESS 
644 001110 000000 SLPERR: .WORD 0 3; CONTAINS SCOPE RETURN FOR ERRORS 
645 001112 000000 SERTTL: 0 ;;CONTAINS TOTAL ERRORS DETECTED 
646 001114 000 SITEMB: .BYTE 0 3; CONTAINS ITEM CONTROL BYTE 
647 001115 001 SERMAX: .BYTE 1 7: CONTAINS MAX. ERRORS PER T 
648 001116 SERRPC: .WORD 0 3;zCONTAINS PC OF LAST ERROR INSTRUCTION 
649 001120 000009 SGDADR: .WORD 0 3: CONTAINS ADDRESS OF ‘GOOD’ 
650 001122 000000 $BDADR: .WORD 0 3; CONTAINS ADDRESS OF ‘BAD’ DATA 
651 001124 000000 $GDDAT: .WORD 0 7: CONTAINS ° * DA 
652 001126 000000 SBDDAT: .WORD 0 7:CONTAINS "BAD’ DATA 
653 001130 000000 -WORD 0 7 RESERVED=--NOT TO BE USED 
654 001132 000000 -WORD 0 
655 001134 000 SAUTOB: .BYTE 0 3 AUTOMATIC MODE INDICATOR 
656 001135 000 S$INTAG: .BYTE 0 3; INTERRUPT MODE INDICATOR 
657 001136 . > @ 
658 001140 177570 Swe: -WORD DSWR ;zADDRESS OF SWITCH REGISTER 
659 001142 177570 DISPLAY: .WORD DDISP ssoPy hae OF DISPLAY REGISTER 
660 001144 177560 STKS: 177560 ; TTY KBD STATUS 
661 001146 177562 STKB: 177562 “TTY KBD BUFFER 
662 001150 177564 $TPS: 177564 SUTTY PRINTER STATUS REG. ADDRESS 
663 001152 177566 STPB: 177566 iz TTY PRINTER BUFFER REG. ADDRESS 
664 001154 000 SNULL: .BYTE 0 7: CONTAINS NULL CHARACTER FOR FILLS 
665 001155 002 SFILLS: .BYTE 2 7: CONTAINS # OF FILLER CHARACTERS REQUIRED 
666 001156 012 SFILLC: .BYTE 12 al FILL CHARS. AFTER A ‘LINE FEED’’ 
667 001157 STPFLG: .BYTE 0 3‘ ‘TERMINAL AVAILABLE’’ FLAG (B]1<07>=0=YES) 
668 001160 077 SQUES: .ASCII /?/ ; QUEST ION MARK 
669 001161 015 SCRLF: .ASCI] <15> : = CARRIAGE RE TURN 
670 001162 000012 $LF: eASCIZ <12> 7ZLINE FEED 


671 5 TRAE RE REE AAAAAREAEAERREREREEERERERE EEE Eee 


ee — ee” ee ee eee 


SEQ 0015 


——— 
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CZDXJB.P11 24-MAR-80 09:31 ERROR POINTER TABLE SEQ 0016 
ore .SBTTL ERROR POINTER TABLE 
| 674 ;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
675 ;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
676 ;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE s PERTINENT. 
677 :*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC) 
rh : *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
680 ;* EM ;;POINTS TO THE ERROR MESSAGE 
681 ;* DH 3;POINTS TO THE DATA HEADER 
682 ;* DT ;;POINTS TO THE DATA 
683 ;* DF 3zPOINTS TO THE DATA FORMAT 
684 
685 
686 001164 SERRTB: 


4 


— 
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mmm ee nes ee 
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TEST CONTROL 


687 -SBTTL MODULE 0.0 TEST CONTROL 
688 ; MODULE 0.0 TEST CONTROL 
689 ; 
690 ; 
691 : 
692 ; 
693 
694 001164 START: 
695 .SBTTL INITIALIZE THE COMMON TAGS 
696 3;;CLEAR THE COMMON TAGS (S$CMTAG) AREA 
697 001164 012706 001100 MOV #SCMTAG,R6 ;zFIRST LOCATION TO BE CLEARED 
698 001170 005026 CLR (R6) + 3;:CLEAR MEMORY LOCATION 
699 001172 022706 001140 CMP ASWR,R6 ; ; DONE? 
700 001176 001374 i 7-6 ;;LOOP BACK IF NO 
701 001200 012706 001100 #STACK, SP ;;SETUP THE STACK POINTER 
702 . ss INITIALIZE A FEW VECTORS 
703 le 012737 005654 000034 MSTRAP ,@ATRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
704 001212 012737 0 000036 MOV #340, @ATRAPVEC+2: LEVEL 7 
705 1220 012737 005752 000024 MOV #SPWRDN, aFPWRVEC Jie FAILURE VECTOR 
706 001226 012737 000340 000026 MOV #340, @APWRVEC+2 ssLEVEL 7 
707 SIZE FOR A HARDWARE SWITCH REGISTER. ay NOT FOUND OR IT IS 
708 ;;EQUAL TO A ‘'~1°", SETUP FOR A eee SWITCH REGISTER. 
001234 013746 MOV @YERRVEC, -(SP) ;SAVE ERROR VECTOR 
710 001240 012737 001274 MOV #64$, QFERRVEC ;SET UP ERROR VECTOR 
711 001246 012737 177570 001140 MOV #DSWR, SwWR : SETUP FOR A HARDWARE SWICH REGISTER 
712 001254 012737 177570 001142 MOV DIS DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
713 0012 022777 177777 177650 CMP #-1, aSwR :TRY TO REFERENCE HARDWARE SWR 
714 001270 001012 BNE 66S ; ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
715 THE HARDWARE SWR IS NOT = -1 
716 001272 BR 65$ «BRANCH IF NO TIMEOUT 
at B01 S00 012716 001302 64$: ay #65$, (SP) «SET UP FOR TRAP RETURN 
719 001 012737 000176 001140 65$: MOV #SWREG, SWR 7;POINT TO SOFTWARE SwWR 
720 001310 012737 000174 001142 MOV #DISPREG, DISPLAY 
721 001316 012637 000004 66$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
001322 RESET 
724 001324 005037 011654 CLR FIRSTP ;CLEAR 1ST PASS SW 
725 001330 005037 011754 CLR DEVMSS ;SET UP TO PRINT DEVICE ADDR CONFIG FIRST TIME ONLY 
726 001334 737 001600 RESTART:JSR PC,GETPRM ;TALK TO THE OPERATOR 
727 001340 013737 011672 011674 MOV COUNT, CNT ;SET UP ITERATION COUNT 
728 001346 013737 011634 011666 GO MOV ATESTN,CTESTIN ;GET FIRST TEST NO. 
7, 001354 005037 011700 CLR LOCK ;CLEAR LOOP LOCK SW 
001 005037 011676 CLR FRR *RESET ERROR INDICATOR 
731 001 013702 011666 TST MOV CTESTN,R2 
732 001370 006302 ASL R2 sMULTIPLY BY TWO FOR WORD BNDRY 
733 001372 000172 001376 JMP aTSTAB(R2) 3;GO TO TEST THRU DISPATCH TABLE 
001376 TSTAB: HALT : TEST 0 DOESN'T EXIST 
735 001400 006134 TST1 
001402 006656 TST2 
737 001404 007124 TST3 
738 001406 0076 TST4 
739 ;WHEN TEST IS DONE IT ALWAYS RETURNS HERE AFTER ONE ITERATION 
740 001410 ENDTST: 
741 001410 005046 CLR -(SP) 7;PUT NEW PS ON STACK 
742 001412 012746 001420 MOV #64$,-(SP) 7zPUT NEW PC ON STACK 





SEQ 0017 


r 


0 09:31 


000002 


032777 


040000 


011666 
011666 


011674 
011754 
011752 
065134 


005134 
005134 
005134 
000001 
011652 
177572 
005134 


000042 


177512 


011616 


011754 


ee ee ee —<. — — 
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64$: 


EOP: 


15$: 


SENDAD: 


END1: 


— 
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INITIALIZE THE COMMON T 


RTI 


#40000,aSWR 
TST 

CTESTN 
CTESTN,HTESTN 
TST 

CNT 

GO 

DEVMSS 


#1 ,DEVMSS 
KT 

15$ 
aSRO 
R5,PRINT 
_ 
a42,RO 
END1 


PC,aRO 


RESTART 


;;POP NEW PC AND PS 


:IS ae SWITCH ON 
:BR YES 


“INCREMENT TO NEXT TEST 
;HAVE ALL TEST BEEN RUN 
DISPATCH TO NEXT ONE 


:BR IF NO, 
:DECREMENT ITERATION COUNT 


;START OVER IF NOT EXPIRED 
;HAVE WE PRINTED DEVICE CONFIG YET? 


:BR IF YES 
sWERE DEVICES RECOGNIZED? 
;BR IF NO, NOTHING 


TO SAY 
:PRINT DEV NO. ASCII 


sPRINT DEV NO. OCTAL 


sPRINT DEVICE COUNT ASCII 


sPRINT DEVICE COUNT OCT 


:SET DEV CONFIG PRINTED SWITCH 
;IS KT IN USE? 


:BR IF NO 
; TURN OFF MEM MGT 


sPRINT CONTROL PARAMETER 


;BR IF NO, 
:GO TO MONITOR 
ROOM FOR 


E WE UNDER ACT 
START OVER 


ACT11 


3 S TUFF 
;START OVER 


SEQ 0018 


CZD 
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785 
786 
| 787 
788 
| 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 001600 005737 011654 
807 001604 001402 
808 001606 000137 002270 
809 001612 005777 176224 
810 001616 141 
811 001620 013737 011604 
812 001626 013737 011606 
813 001634 013737 011610 
814 001642 013737 011612 
815 001650 000564 
816 001652 022737 001566 
817 001660 001560 
818 001662 005737 011670 
819 001666 001004 
821 001670 537 005134 
822 001674 012266 
823 001676 
824 001700 004537 002272 
oH 001704 000001 
827 1706 122 000104 
828 001712 001015 
001714 013737 011604 
8 001722 013737 011606 
831 001 013737 011610 
001 013737 011612 
833 001744 000526 
8 001746 122 000120 
835 001752 00101 
8 005 
001 
338 0005 


es 


011634 


ooooe 
ed ed eed eed 
EEoe 


XJ2O0 DX11-8 want ie fl 3° MACY11 yy 


10$: 


15$: 


208: 





: TST FIRSTP 
B 5$ 
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1.0 GET PARAMETERS 


~SBTTL MODULE 1.0 GET PARAMETERS 
MODULE 1.0 GET PARAMETERS 


CALLED AS FOLLOWS 
JSR PC,GETPRM 


THIS MODULE ASSURES THAT ALL PARAMETERS ARE AQUIRED FOR 
OPERATION OF THE DIAGNOSTIC. TO DO THIS IT ESTABLISHES 

A DIALOG WITH THE OPERATOR THROUGH THE INPUT PARAM MODULE. 
MEMORY IS SIZED BY THE "SIZE* MODULE, AND ALL PARMS ARE 
CHECKED FOR VALIDITY BY THE CHECKP MODULE. 


“C AT ANY TIME CLEARS THE 1ST PASS SWITCH AND EVERYTHING 
STARTS OVER. CR_IN RESPONSE TO ANY QUESTION CAUSES THE DEFAULT 
VALUE TO BE SUBSTITUTED. 
THIS MODULE NEVER RETURNS TO CALLER UNLESS ALL PARAMETERS 
HAVE BEEN ESTABLISHED WITH GOOD VALUES. 
:IS THIS THE FIRST PASS 
IF YES 


JMP ENDPRM :DON'T GET PARM IF WE ALREADY HAVE THEM 


TST a42 ;ARE WE RUNNING IN AUTO MODE 
BEQ 10$ :BRANCH IF MACHINE IS ATTENDED 
MOV DTESTN,ATESTN + SETUP DEFAULTS 


MOV DVECT,AVECT 
MOV DPRIOR, APRIOR : SETUP DEFAULTS 


BR EE ABOUT MEMORY SIZING 

CMP A#SENDAD , #42 ;UNDER ACT11? 

BEQ 90$ :NO OPERATOR INTERACTION 

TST PARMV ;ARE PARAMETERS GOOD 
BNE 15$ sBRANCH IF YES BECAUSE THIS 

;ALSO MEANS HEADER ISN'T NEEDED 

JSR R5,PRINT ;CALL_THE PRINTER 

HEADER sADDRESS OF HEADER ASCIZ 

WORD ;CONTROL WORD, CRLF + DON'T CONVERT 


: 0 

JSR RS . INPRM /GET D.P.s OR N FROM OPER. 

WORD THIS fects INPRM TO GET D.P.S.N 

> INPRM vi RETURN IN RO THE CHAR TYPED 

CMPB so #'"DCRO :WAS DEFAULT PARMS REQUESTED? 

BNE 0$ :BR IF NO 

MOV DTESTIN.ATESIN :DEFAULT SETUP 
DUBA, AUBA “D 

MOV DVECT,AVECT 

MOV DPRIOR,APRIOR :DEFAULT SETUP 


BR 90$ 3;GO SEE ABOUT MEMORY SIZING 
CMPB #°P.RO DOES OPERATOR WANT PREVIOUS 
30$ “BR IF NO 
; ARE a SET 


UP 
F PARAMETERS NOT VALID 
:USE PREVIOUS PARMS, NO ACTION NEEDED 
P TYPED AND PARMS 
“NEVER SET UP PROPERLY 


SEQ 0019 


— 
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81 001772 
B42 001774 726 
843 001776 122700 000123 
844 00200 1062 
845 00 005037 011670 
846 002010 537 002272 
944 002014 2 
849 002016 010037 011634 
850 002022 004537 004766 
851 002026 
852 002030 005700 
853 002032 001 
54 0020 004537 002272 
855 002040 000003 
856 002042 010037 011636 
857 00204 537 004766 
858 002052 3 
859 002054 005709 
860 002056 001 
861 2060 004537 002272 
862 002064 
863 002066 010037 011640 
864 002072 0045357 004766 
865 002076 
866 002100 005700 
867 002102 001 
868 0021 004537 002272 
869 002110 5 
870 002112 010037 011642 
871 00211 537 004766 
872 002122 5 
8735 002124 005700 
874 002 001 
875 0021350 004537 005134 
876 eos ke 012673 
878 002140 004537 002532 
879 002144 1 
880 002146 000425 
881 002150 122700 000116 
002154 001236 
6535 002156 004537 002272 
002162 
885 002164 010037 011634 
002170 537 004766 
887 002174 
888 002176 005700 
889 002200 1366 
890 002202 005737 011670 
891 002206 100 
892 002210 537 005134 
893 002214 012535 
894 002216 
895 0022 000614 


30$: 
35$: 


36$: 


37$: 


38$: 


40$: 
45$: 


eee eae 
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1.0 GET PARAMETERS 


. WORD 





10$ 
#*S,RO 
40$ 

PARMV 

RS, INPRM 
2 
RO,ATESTN 
 pateaee 


RO 
35$ 
re 


RO ,AUBA 
pitas 


36$ 
ani 
RO,AVECT 
reed 


37$ 
—— 
RO,APRIOR 
‘pend 


38$ 

R5 PRINT 
“pee 

o> ASE 
90$ 
#°N,RO 
10$ 
Pam 


RO,ATESTN 
,-Oeur 


RO 
PARMV 
90$ 

R5 PRINT 


0 


;CONTROL WORD,CRLF + DONT CONVERT 
:GO TO TRY AGAIN 
:ARE PARMS TO BE SELECTED? 


F NO 
;CLEAR PARM VALID SW 
:ASK_INPUT MODULE TO GET TEST NO: 
TEST — WILL BE RETURNED IN RO 


IN OCTAL 
sSAVE TEST NUMBER IN ACTIVE PARM TABLE 
+ CHE CK IF TEST NO 

;PARAMETER INDICATES VERIFY TEST # 
:RO=0 IF CHECK OK 

sSTAY HERE UNTIL OPERATOR GETS IT RIGHT 
;ASK INPUT MODULE TO GET BASE ADDR 
;PARAMETER INDICATING GET UBA BASE 
;SAVE UB BASE ADDR am porees TABLE 

: CHECK FOR VALID ENT 

;PARM TO pote a CHECK UBA 

:RO=0 IF CHECK OK 

: STAY HERE UNTIL HE y IT RIGHT 


; D 
:SAVE VECTOR IN ACTIVE PARM TABLE 
2a Sy FOR VALID VECTOR 

ARM INDICATING CHECK VECIOR 
‘RO=0 IF VECTOR 
sSTAY HERE UNTIL HE GETS IT RIGHT 
:GO GET DX PRIORITY 


; SAVE PRIORITY 
:CHECK PRIORITY ENTRY 
;PARM INDICATING PRIORITY CHECK 


sSTAY HERE UNTIL HE GETS IT RIGHT 
sPRINT SET SWITCHES MESSAGE 
sADDR OF MESSAGE 


:DUMMY INPUT REQUEST TO WAIT FOR 
; OPERATOR TO SET A 


NPUT 
:BR NONE OF DPSN WERE INPUT 
tne! FOR TEST NUMBER TO BE INPUT 
ARM SAYS GET TEST e. 
SAVE STARTING TEST 
sHAVE TEST # CHECKED "FOR PROPER 


> RANGE 

:I1S TEST # OK? 

: E UNTIL HE GETS IT RIGHT 

Br roe TEST #, ARE OTHER PARMS OK? 


PRIN 
‘POINTER TO “NEED MORE PARMS'" MSG 
:CONTROL WORD, CRLF * DON'T CONVERT 
:GO BACK AND DO IT ALL AGAIN 


SEQ 0020 


—— 
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0 09:31 1.0 GET PARAMET 
004212 90S: JSR PC,SI 
000015 MOV #15,R0 
011534 MOV #DXDS 
011636 MOV AUBA , 

95$ MOV R2,(R1)+ 
000002 ADD #2,R2 
DEC RO 
BNE 95$ 
000001 011670 MOV #1, PARMV 
000001 011654 MOV #1. FIRSTP 
: ENDPRM: RTS PC 


LL MEMORY SIZING MOD 


E ; CAL ULE 
‘yearns OF LOOP TO SET UP Dx ACCESS, ADDRESSES 


:GET ADDR OF START OF 
>GET DX REG BASE ADDRESS 
:MOVE UBA TO TABLE 
;STEP TO NEXT UBA 
a oa COUNTER 
FILL THE 13 LOCATIONS OF THE TABLE 
:SET PARAMETER VALID SWITCH 
:SET NOT FIRST PASS SWITCH 
;RETURN TO CALLER, END OF MODULE 


SEQ 0021 


ee ee eee _—_ 
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CZDXJB.P11 24-MAR-80 09:31 1.0 GET PARAMETE SEQ 0022 
909 
uy -SBTTL MODULE 1.1 INPUT PARAMETERS 
aig > MODULE 1.1 INPUT PARAMETERS 
aie ; CALLED AS FOLLOWS 
916 ; JSR RS, INPRM 
at ; -WORD X 
919 ; WHERE X DEFINES WHAT PARAMETER TO GET AS 
920 ; FOLLOWS: 
921 ; = D.P,.S.ORN gr tine SELECTION 
922 ; X=2 STARTING TEST # 
923 : x=3 UBA BASE ADDR 
924 : X=4 DX VECTOR ADDR 
3S? ; x=5 DX PRIORITY 
927 : THE REQUESTED PARAMETER IS RETURNED IN RO ALL CONVERTED 
928 ; TO OCTAL AND DEFAULT SUBSTITUTED “—. INDICATED. INPUTS 
929 ; ARE CHECKED FOR EVERYTHING EXCEPT THAT THE NUMBERS ARE 
930 ; IN THE CORRECT RANGE. CHECKING INCLUDES NUMERIC IF 
931 : REQUIRED, OCTAL IF REQUIRED, <CR> FOR DEFAULT, ETC. 
932 : THIS MODULE DESTROYS R1,RO0 
933 002272 012501 INPRM: MOV (R5)+,R1 ;GET THE PARAMETER FROM THE 
934 tee CODE. 
935 002274 120127 000001 CMPB R1,41 “IS P ARM 1 = GET D.P.S. ORN? 
936 002300 001016 BNE 10$ BR IFN NO. 
937 002302 004537 005134 JSR RS.PRINT :PRINT 
938 002306 012555 -WORD PROMPT :D.P.S.N 
939 002310 000000 .WORD 0 CONTROL WORD. CRLF + DON'T CONVERT 
940 002312 004537 002532 JSR RS, INASC *READ THE T- 
941 002316 000001 -WORD 1 ; INASC RETURNS POINTER TO 
942 002320 111100 MOVB (R1),RO > INPUT IN R1 
943 -1ST CHAR TO RO 
944 002322 120027 000015 CMPB RO,ACR :WAS IT DEFAULTLED? 
945 002326 001100 BNE 90$ NO, 
946 002330 113700 000120 MOVB *P.RO : INSERT DEFAULT OF P=PREVIOUS PARMS. 
27 334 000475 BR 90$ ;ALL DONE 
949 002336 120127 000002 10$: CMPB R1,42 71S PARM 2 - GET TEST # 
950 002342 001014 BNE 20$ ; 24 NO 
951 002344 004537 005134 JSR R5S.PRINT INT 
952 350 012567 .WORD TESTN :ADDR OF STARTING TESTN MSG. 
953 002352 000000 -WORD 0 ;CONTROL WORD, CRLF + DON'T CONVERT 
002354 004537 002532 JSR R5, INASC :GET OCTAL INPUT 
955 300 000002 . WORD PARM TO oY OCTAL INPUT 
002362 011100 MOV (R1),RO :GET INPUT 
957 364 001061 BNE 7 1F NON ERO, WE*RE DONE 
002366 013700 011604 MOV DTESTN,RO - SUBSTITUTE THE DEFAULT 
959 372 000456 BR 90$ ; 
002374 120127 000003 20$: CMPB R143 ;WAS UBA REQUESTED 
961 2400 001014 BNE om IF NO 
962 002402 004537 005134 JSR RS,PRINT PRINT 
963 002406 012612 -WORD BASEA 7ASK FOR BASE AD 


002410 000000 -WORD QO : CONTROL WORD, NORE + DON'T CONVERT 
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004537 


24-MAR-80 09: 


0025352 


011606 
000004 
005134 


002532 


011610 


000005 
005134 


002532 


011612 


30$: 


40$: 


bos: 


INPUT PARAMETERS 
JSR R5, INASC 
. WORD 
MOV (R1),RO 
BNE $ 
MOV DUBA ,RO 
BR 90$ 
CMPB R144 
BNE 0$ 
JSR R5,PRINT 
-WORD VECTA 
-WORD Q 
JSR . R5, INASC 
MOV (R1),RO 
BNE 90$ 
MOV DVECT,RO 
BR 90$ 
CMPB R1,45 
BNE 80$ 
JSR R5,PRINT 
-WORD PRILV 
-WORD 0 
JSR R5, INASC 
-WORD 2 
MOV (R1),RO 
BNE 
MOV DPRIOR ,RO 
BR 90$ 
HALT 
RTS R5 
-SBTTL MODULE 1.1.1 


2 
Pe | 09:45 * AGE 24 


+GET _ OCTAL 


“GET THE NUMBER INPUT 
;BR IF NOT DEFAULTED 
+ SUBSTITUTE THE DEFAULT 


“DOES CALLER WANT VECTOR? 
:BR +4 NO 


7PRINT 

ASK FOR VECTOR ADDR 

= CONTROL WORD, CRLF + DON'T CONVERT 
;GET THE INPUT 

3 IN OCTAL 

;GET THE NUMBER INPUT 

“BR IF NOT DEFAULTED 

ne THE DEFAULT 


:DOES CALLER WANT PRIORITY? 
:BR 24 INVALID CALL 


SASK FOR PRIORITY LEVEL 
:CONTROL WORD, CRLF + DON'T CONVERT 
sREQUEST INPUT 


F OK, NOT DEFAULTED 
SUBSTITUTE THE DEFAULT 


HALT ON INVALID CALL TO THIS MOD 
RETURN "7, Len 


INPUT FROM T 


SEQ 0023 


a ti 
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elelelelelele)ejele) 
ad ad ad od od ad od oe ed 


OWOONAULSWIN—© 


§ 


1021 


002602 
00 


002610 
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002620 
000001 


013504 
000002 


013304 
013504 


stet 
00261 
00 
002670 
000200 
176266 
000100 


002604 


176256 


be—e@e Ge Ge Ge Be Be Ge Be Ge Be Ge Be Be Se 


é 
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1.1.7 
MODULE 1.1.17 


INPUT FROM T 


CALLED AS FOLLOWS 


JSR 
. WORD 


WHERE 


R5,INASC 
x 


INPUT FROM TTY 


X=1 FOR ASCII INPUT 


FOR OCTAL INPUT 


A POINTER TO THE INPUT MESSAGE IS RETURNED IN R1. THIS 
ROUTINE DESTROYS RO,R1 


PC. $TKINT 
(R5)+,RO 
RO.A1 

10$ | 
@(SP) +, INBUF 
20$ 

RO.A2 

30$ 
(SP) +, INBUF 
#INBUF .R1 


~SBTTL TTY INPUT ROUTINE 


FF AAA AAAAAAAAEAAAAAEEEAEAAAEAEARAERARARAARAEAEERERERAEAREEREREKKEKEEES 


at INITIALIZE ROUTINE 
THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT 


: #SETUP THE INTERRUPT VECTOR AND TURN ON 
CALL: 
* 


é 
-* 


STKINT: 


PC ,STKINT 


STKCNT 
#STKQSRT ,STKQIN 
S$TKQIN, $TKQOUT 


a$T 
#100, a$TKS 


sINITIALIZE THE TTY INPUT 
;GET THE PASSED PARAMETER 
21S IT A REQUEST FOR ASCII? 
:BR IF NO. 


:IS IT A REQUEST FOR OCTAL 
;BR IF NO 


:3POP STACK INTO INBUF 
;SET POINTER TO INPUT 
:RETURN TO CALLER 

> INVALID CALL TO MODULE 


; =NUMBER OF i IN QUEUE 


72 TTY KEYBOARD QUEUE 


QUEUE 
THE KEYBOARD INTERRUPT 


;CLEAR_ COUNT OF ITEMS IN QUEUE 
: IMOVE THE STARTING ADDRESS OF THE 
[QUEUE INTO THE INPUT & OUTPUT POINTERS. 
iS INITIALIZE THE KEYBOARD VECTOR 
7 BR LEVEL & 
I CLEAR DONE F 
STENABLE TTY KEYBOARD INTERRUPT 


eee 


SEQ 0024 
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1061 


WNISS EURO ROR ES 


REREESSSSS5 


g 


BELRIESSISSEST 


ec ce ee ee ce cee ce ee ee cee ee ee ee ee ee ee ee ee ee eed eed od 


SELRSRATSES 


002666 


24-MAR- 


000207 


117746 


T 
0 09:3 


176252 
177600 
004010 


002620 


001164 
000007 


000176 


000010 
004004 


000023 
176150 
176142 
176136 
177600 
000021 
000100 


002602 
000140 


000175 
000040 
177522 
002604 
002604 


MACY11 a tee 


001140 


002602 


176114 


002620 


002610 002604 


RTS 


PC 


ote SERVICE ROUTINE 
THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


THE QUEUE. 
:*IF THE CHARACTER IS A “CONTROL=C*"* (“C) STKINT IS CALLED AND 
;*UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C'’ RESTART ADDRESS (START) 


: eBY READING 
:*IT IN 


$TKSRV: MOVE 


23: 
3$: CMP 
31$: TSTB 
32$: INC 
MP 


4$: 


5$: RT] 


a$TKB,-(SP) 

#°C177, (SP) 
SP) #3 
SSCNTLC 

PC $TKINT 
(SP)+ 

START 

(SP) 47 


2 
ASWREG , SWR 
6$ 


#10, STKCNT 


a$TKB,-(SP) 
#°C177, (SP) 
(SP)+,# 

31 

#100, aSTKS 


STKCNT 
(SP) ,4140 


(SP) #175 

4$ 

#40, (SP) 
(SPS +, a$TKQIN 
STKQIN 
STKQIN,#STKQEND : 
#STKOSRT.STKQIN 


-_———_—_ <a wee  e ee e _-_—- ~- - - - _—— 
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INPUT ROUTINE 


; RETURN TO CALLER 


;sPICKUP THE CHARACTER 

:sSTRIP THE JUNK 

e31S IT A_CONTROL C? 
H IF NO 


;BRANC 
: TYPE A CONTROL-C (“C) 
KE YBOARD 


H I , 
:¢IS SOFT-SWR SELECTED? 
32GO TO SWR CHANGE 


:3IS THE awe FULL? 
; ;BRANCH IF 
srry THE iy BELL 
lie CHARACTER OFF OF STACK 
IIIs IT A_CONTROL-S? 
a 


a oe Stace INTERRUPTS 


31S IT A _CONTROL-@Q 
; ;BRANCH IF NO 

; ;REENABLE TTY KEYBOARD INTERRUPTS 
RETURN 


: COUNT THIS CHARACTER 
:IS_IT UPPER CASE? 


PUT N QUEUE 
: UPDATE THE POINTER 
ee OFF THE END? 
BRANCH IF NO 
77RESET THE POINTER 
; sRE TURN 


FTAA AAAAAAAAAAAAAAAAAAEREAARERARARAAAEAAARAEAEAAEEEAEERAEEEEKRREEE 


® #SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 


“SEQ 0025 
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WN 
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ROKR IAS SSVFARRUNLSSSELEGEGHLESBLEAK 
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1 
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1 
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1 
1 
1 
1 
1 
1 
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022737 


123727 
001674 


176022 


176016 
177600 


000001 


001135 


000001 


175652 
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INPUT ROUTINE 


: SERVICE THE TEST FOR CHANGE IN. SOF TWARE SWITCH REGISTER TRAP 
000176 001140 icKSUR: it 


RATING IN T 
A#SWREG, Suk 


asTKs 

15$ 
asTe ~(SP) 
#°C177. (SP) 
(SP) #7 


31S THE SOFT=SWR SELECTED 
XIT IF NO 


33] 
s7IF NOT, EXI 


ZIMAKE IT 7=BIT ASCII 
eit? IT A CONTROL-G? 
F a el IT IN THE TTY QUEUE 


FF AAA AAAAARAAAAEAAAEAAAEEEEEREKEKERAEAKERERERAEKRRAAEEEKEEREREEERERKKKEE 


:*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 


;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER 
;*CONTROL-G BEING TYPED, HE 
é$: CMPB $AUTOB, #1 


T 
SGTSWR: 


19$: 
7$: 


8$: 


10$: 





(SP) + 

PC ,STKINT 
KS 

»SCNTLG 

. SMSWR 

SWREG , = (SP) 

» SMNEW 

-(SP) 


-(SP) 
a$TKS 
7$ 


@$TKB,-(SP) 
#°C177, (SP) 
(SP) #3 
,SCNTLC 
SINTAG, #1 
#100. a$TKS 
START 


AND T 


TRAP CALL, AS A RESULT OF A 
SOFTWARE SWITCH REGISTER BEING SELECTED. 
:sARE WE RUNNING IN AUTO-MODE? 
; BRANCH IF YES 
St ir TROL=-G OFF STACK 


AR CON 
LUSH THE TTY INPUT QUEUE 
DISABLE TTY KEYBOARD INTERRUPTS 
:sSET INTERRUPT MODE INDICATOR 
:sECHO THE CONTROL-G (*G) 
33 TYPE CURRENT CONTENTS 
a4 SWREG FOR TYPEOUT 

+ G0 oT pak tan —_— DIGITS) 


CLEAR COUNTER 
3:3 THE NEW SWR 


3;CHAR THERE? 

3: IF NOT TRY AGAIN 

szPICK UC 

72MAKE IT oBIT ASCII 

21S IT A CONTROL-C? 
;BRANCH IF NOT 

YES, ECHO CONTROL-C (“C) 

>: CLEAN UP STACK 

:IBRANCH TF gas KEYBOARD INTERRUPTS? 
; , so INTERRUPTS 

SON TROL<C RESTAR 

215 IT Pt 

:3 YES. ECHO CONTROL-U (“*U) 

VIOUS INPUT 


33 PRE 
Z:LET'S TRY IT AGAIN 


::1S IT A <CR>? 
; BRANCH IF NO 
77 VES. IS IT THE FIRST CHAR? 


SN ee 


SEQ 0026 
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SeSeorascs 
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INPUT ROUTINE 
BEQ 11$ : :BRANCH IF YES 
MOV 2(SP) ,aSwR 7: SAVE NEW SWR 
11$: ADD 6,SP ::CLEAR UP STACK 
14$: TYPE $CRLF *:ECHO <CR> AND <LF> 
CMPB  ~—s- S$ INTAG,, #1 > RE-ENABLE TTY KBD INTERRUPTS? 
BNE 15$ ; ;BRANCH IF T 
MOV #100, a$TKS > :RE-ENABLE TTY KBD INTERRUPTS 
S$ RT] : ;sRETURN 
16$ JSR PC .$TYPEC : ECHO CHAR 
CMP (SP) ,460 >=CHAR < 0? 
BLT 1 > :BRANCH IF YES 
CMP (SP) #67 -:CHAR > 7? 
BGT 18$ : ;BRANCH IF vES 
BIC #60, (SP)+ ::STRIP-OFF ASCII 
TST 2(SP) ::1S THIS THE FIRST CHAR 
BEQ 17$ ; BRANCH IF YES 
ASL (SP) -NO, SHIFT PRESENT 
ASL (SP) >: CHAR OVER TO MAKE 
ASL (SP) >: ROOM FOR NEW ONE. 
17$: INC 2(SP) ::KEEP COUNT OF CHAR 
BIS -2(SP), (SP) :#SET IN NEW CHAR 
BR 7$ : THE NEXT ONE 
18$: TYPE SQUES - TYPE 7<CR><LF> 
BR 20$ “SIMULATE CONTROL -U 
.DSABL LSB 


J EAA AAA AAA EREKEREEEE 


:ATHIS. ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


3*C 
:* RDCHR ::GET A CHARACTER FROM THE QUEUE 
:* RETURN HERE >: CHARACTER IS ON THE STACK 
sf ;;WITH PARITY BIT STRIPPED OFF 
SRDCHR: MOV (SP) ,=(SP) ::PUSH DOWN THE PC AND 
MOV 4 (SP), 2(SP) >: THE PS 
CLR 4 (SP) ;3GET READY FOR A CHARACTER 
CLR -(SP) :PUT NEW PS ON STACK 
MOV #64$,-(SP) >:PUT NEW PC ON STACK 
oe RTI -:POP NEW PC AND PS 
1$: TST STKCNT ::WAIT ON A CHARACTER 
DEC STKCNT ::DECREMENT THE COUNTER 
MOVB  @S$TKQOUT,4(SP) ;;GET ONE CHARACTER 
INC $TKQOUT “UPDATE THE POINTER 
CMP $TKQOUT.#$TKQEND 33 DID IT GO OFF OF THE END? 
BNE CH IF NO 
MOV #STKOSRT, $TKQOUT” ; gRESET THE POINTER 
2s: RT] TURN 
PTAA ARAAERAAAEAAAAAEEAAACAAAAERAERAAAAAAAARERERAAARRAEEKER EEE 
:STHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
*® 
:* RDLIN :: INPUT A STRING FROM THE T 
* RETURN HERE >: ADDRESS OF FIRST CHARATTER ri BE ON THE STACK 


SEQ 0027 


cs 
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XJB.P11 24=MAR=80 09:31 Y INPUT ROUTINE SEQ 0028 | 
\ss¢ ;* 3; TERMINATOR WILL BE A BYTE OF ALL O'S | 
1224 003540 010346 SRDLIN: MOV R3,-(SP) Sr SAVE R3 | 
1225 003542 005046 CLR ~(SP) ::CLEAR THE RUBOUT KEY 
1226 003544 012703 003774 1$: MOV #STTYIN,R3 ::GET ADDRESS 
1227 003550 022703 004004 2$: CMP #STTYIN+10,R3 : :BUFFER FULL? 

1228 003554 101456 BLOS 4$ ;3BR IF YES 

1229 003556 104407 RDCHR :GO READ ONE CHARACTER FROM THE TTY 
1230 003560 112613 MOVB (SP) +, (R3) =:GET CHARACTER 

1231 003562 122713 000177 10$: CMPB so #177, (R’3) -:1S IT A RUBOUT 

1232 003566 001022 BNE 5$ ;;BR IF NO 

1233 003570 005716 TST (SP) ::1S THIS THE FIRST RUBOUT? 

1234 003572 001007 BNE 6$ :;BR IF NO 

1235 003574 112737 000134 003772 MOVB = #"\ 98 ::TYPE A BACK SLASH 

1236 003602 104401 003772 TYPE 9 

1237 003606 012716 177777 MOV #-1, (SP) ;3SET THE RUBOUT KEY 

1238 003612 005303 6S: DEC R3 :BACKUP BY ONE 

1239 003614 020327 003774 CMP R3.ASTTYIN i: STACK EMPTY? 

1240 003620 103434 BLO 4$ :BR IF YES 

1241 003622 111337 003772 MOVB _(R3),9% ::SETUP TO TYPEOUT THE DELETED CHAR. 
1242 003626 104401 003772 TYPE 9$ ::GO TYPE 

1243 003632 000746 BR 5$ =:GO READ ANOTHER CHAR. 

1244 003634 005716 5$: TST (SP) > :RUBOUT KEY SET? 

1245 003636 001406 BEQ 7$ 3;;BR IF NO 

1246 003640 112737 000134 003772 MOVB  #"\ 9S :: TYPE A BACK SLASH 

1247 003646 104401 003772 TYPE : 

1248 003652 005016 CLR (SP) :: CLEAR THE RUBOUT KEY 

1249 003654 122713 000025 7$: CMPB ss #25, (R3) 71S CHARACTER A CTRL U? 

1250 003660 001003 BNE 8$ ::BR IF NO 

1251 003662 104401 004015 TYPE S$CNTLU «TYPE A CONTROL ‘U"' 

1252 003666 000726 BR i$ : £60 START OVER 

1253 003670 122713 000022 8$: CMPB ss #22. (R3) :1S CHARACTER A ‘*R'"? 

1254 003674 001011 BNE 3$ CH IF NO 

1255 003676 105013 CLRB ~—s.« (R33) CLEAR THE CHARACTER 

1256 003700 104401 001161 TYPE SSCRLF >: TYPE A CR’ ®& ‘LE’ 

1257 003704 104401 003774 TYPE STTYIN i: TYPE THE INPUT STRING 

1258 003710 000717 BR 3$ : G0 PICKUP "ANOTHER CHACTER 

1259 003712 104401 001160 4$: TYPE »$QUES TYPE A 

1260 003716 000712 BR i$ SO CLEAR THE BUFFER AND LOOP 

1261 003720 111337 003772 3$: MOVB  _ (R3),9$ ::ECHO THE CHARACTER 

1262 003724 104401 003772 TYPE : 

1263 003730 122723 000015 CMPB so #15, (R3)+ ::CHECK FOR RETURN 

1264 003734 001305 BNE $ ::LOOP IF NOT RETURN 

1265 003736 105063 177777 CLRB  =s-_-« = 1(R3) >: CLEAR RETURN (THE 15) 

1266 003742 104401 001162 TYPE SUF :7TYPE A LINE FEED 

1267 003746 005726 TST (SP)+ :CLEAN RUBOUT KEY FROM THE STACK 
1268 003750 012603 MOV (SP)+,R3 ; REST ORE R3 

1269 003752 011646 MOV (SP) ,-(SP) :ADJUST THE STACK AND PUT ADDRESS OF THE 
1270 003754 016666 000004 000002 MOV 4(SP).2(SP) 3 FIRST ASCII CHARACTER ON IT 
1271 003762 012766 003774 000004 MOV #STTYIN,4(SP) 

1272 003 2 RT] + : RETURN 

12 00377 000 9$: BYTE 0 ::STORAGE FOR ASCII CHAR. TO TYPE 
1274 003 000 -BYTE 0 > TERMINATOR 

1275 003774 000010 SITYIN: .BLKB 10 : :RE SERVE 10 BYTES FOR TTY INPUT 
1276 004004 177607 000377 $BELL: .ASCIZ <207><377><377> 3:CODE FOR BELL 

1277 004010 041536 005015 000 $CNTLC: .ASCIZ /*C/<15><12>  °:CONTROL ‘'C” 








em eee ee eee 
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DXJB.P11 24-MAR-80 09: INPUT ROUTINE — SEQ 0029 
006 


a La | 


1 5 000012 S$CNTLU: .ASCIZ /*U/<15><12> 3; CONTROL ‘U'' 
1279 004022 043536 005015 000 S$CNTILG: .ASCIZ /*G/<15><12> 3; CONTROL ‘'G’’ 
1280 004027 015 051412 051127 SMSWR: .ASCIZ <15><12>/SwR = / 
1281 004034 036440 000040 
82 004040 020040 042516 020127 SMNEW: .ASCIZ / NEW = 
1283 004046 020075 000 
1284 004052 EVEN 
1S ~-SBTTL READ AN OCTAL NUMBER FROM THE TTY 
1287 5 TRAE RAE R EEE ES 
1288 ;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
1289 ;*CHANGE IT TO BINARY. 
1290 :*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
1291 : *OCTAL pestis. IF AN ILLEGAL CHARACTER IS READ A ‘'?'' WILL BE TYPED 
1292 >*FOLLOWED BY A CARRIAGE RETURN=-LINE FEED. THE COMPLETE NUMBER MUST 
5 ¢« THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
*® 
1295 3 RDOCT ;ZREAD AN OCTAL NUMBER 
1296 Z RETURN HERE ;;LOW ORDER BITS ARE ON TOP OF THE STACK 
Soe * ;:HIGH ORDER BITS ARE IN $HIOCT 
1299 004052 011646 SRDOCT: MOV (SP) ,-(SP) ;;PROVIDE SPACE FOR THE 
1300 004054 016666 000004 000002 MOV 4(SP) ,2(SP) 7, INPUT NUMBER 
1301 004062 010046 MOV RO,-(SP) : «PUSH RO ON STACK 
1302 004064 010146 MOV R1,-(SP) 7;:PUSH R1 ON STACK 
1303 004066 010246 MOV R2,-(SP) 7;2PUSH R2 ON STACK 
1304 004070 104410 1$: RDLIN ;Z;READ AN ASCIZ LINE 
1305 0064072 012600 MOV (SP)+,RO + GET ADDRESS OF 1ST CHARACTER 
1306 004074 010037 004200 MOV RO,5$ SAND SAVE IT 
1307 004100 005001 CLR R1 =: CLEAR DATA WORD 
1308 004102 005002 CLR R2 
1309 004104 112046 2s: MOVB (RO)+,-(SP) 7zPICKUP THIS CHARACTER 
1310 004106 001420 BEQ 3$ 32: 1F ZERO GET OUT 
1311 004110 122716 000060 CMPB #°0O, (SP) 7 MAKE SURE THIS CHARACTER 
1312 004114 003026 BGT 4$ 7371S AN OCTAL DIGIT 
1313 004116 122716 000067 CMPB #°7, (SP) 
1314 004122 002423 BLT 
1315 004124 301 ASL R1 zga¢ 
1316 0064126 006102 ROL R2 
1317 004130 1 ASL ot 3G 
1318 004132 006102 ROL R2 
1319 004134 301 ASL R1 32%8 
1320 004136 006102 ROL Ae 
1321 004140 042716 177770 BIC #*C7, (SP) ;z;STRIP THE ASCII JUNK 
1322 004144 062601 ADD (SP)+,R1 ;ZADD IN THIS DIGIT 
1323 004146 000756 BR 2$ 33 
1324 004150 005726 3$: TST 35 37; CLEAN TERMINATOR FROM STACK 
1325 0064152 010166 000012 MOV R1,12(SP) ;; SAVE THE RESULT 
1326 004156 010237 004210 MOV R2,$HIOCT 
1327 004162 012602 MOV (SP) +,R2 3:POP STACK INTO R2 
1328 004164 012601 MOV (SP)+_R1 3;POP STACK INTO R1 
1329 004166 012600 MOV (SP)+ “RO 3;z;POP STACK INTO RO 
1330 004170 000002 RT] : RETURN 
1331 004172 005726 4$: TST (SP)+ 3: CLEAN PARTIAL FROM STACK 
1332 004174 105010 CLRB (RO) 7: SET A TERMINATOR 
1333 0064176 106401 TYPE 7; TYPE UP THRU THE BAD CHAR. 
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DxXJB.P11 24-MAR-80 09:31 READ AN OCTAL NUMBER FROM THE TTY 

1334 004200 000000 5$: .WORD 0 

1335 004202 104401 001160 TYPE , SQUES ) pe le ee ee ey 

1336 004206 000730 BR 1$ ;; TRY AGAIN 

1337 004210 000000 $HIOCT: .WORD 0Q ;;HIGH ORDER BITS GO HERE 
1338 ~SBTTL MODULE 1.2 SIZE MEMORY 


eee Oe eee ees ——— —— a — - _ . - 


SEQ 00350 


ee — << ——_e i —_—— 
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XJB.P11 24=MAR=80 09:31 MODULE 1.2 SIZE ME SEQ 0031 

| 1340 MODULE 1.2 SIZE MEMORY 

| 1342 : CALLED AS FOLLOWS 
1343 ; 
ie ; JSR PC,SIZE 
1346 : THIS MODULE SETS UP MEMORY SIZE INCLUDING EXTENDED 
HH : ADDRESSING BITS IN ACTIVE PARAMETER TABLE 
133 | 
1351 004212 005037 004516 SIZE: CLR $KT11 :DON'T TRY FOR MEM MGT 
1352 004216 004737 004460 JSR PC,$SIZE :GET MEM SIZE WITH KT OFF 
1353 004222 005037 011652 CLR KT :RESET KT AVAILABLE SWITCH 
1354 004226 013737 004762 011646 MOV SLSTAD ,MMAX :SAVE END OF CORE WITH KT OFF 
1355 004234 013737 004762 011644 MOV SLSTAD,MSIZE :GET END OF CORE TO WORK WITH 
1356 004242 023727 004762 017776 CMP SLSTAD,#17776 :LESS THAN 8K? 
1357 004250 103415 BLO 35$ ‘BRANCH IF YES, DON'T PRESERVE LOADERS 
1358 004252 162737 000276 011644 SUB #276,MSIZE :SAVE SPACE FOR ABS LOADER 
1359 005737 000042 TST are2 : RUNNING UNDER ACT OR XXDP 
1360 004264 001407 BEQ 35$ :BR IF NO 
1361 004266 023737 000042 000046 CMP a442,aN46 : RUNNING UNDER XXDP CHAIN? 
1362 004274 001403 BEQ 35$ *BR IF NO 
1363 004276 162737 005500 011644 SUB #5500,MSIZE :SAVE SPACE FOR LOADERS 
1364 005037 011650 35$: CLR EASIZE =CLEAN UP EXTENDED ADDR 
1365 004310 005037 011704 CLR EABITS 
1366 004314 037727 174620 002090 BIT aSwR,#Sw10 :CHECK IF MM TO BE USED 
1367 004322 001055 BNE 30$ :BR IF NO 
1368 004324 012737 000200 004516 10$: MOV #200, $KT11 
1369 004332 004737 004460 20S: JSR PC. $SIZE 
1370 004336 005737 004516 TST $kT11 :1S MM ACTIVE 
1371 004342 100045 BPL 308 : F NO 
1372 004344 012737 1 011652 MOV #1.K :SET KT IN USE FLAG 
1373 004352 013737 004764 011650 MOV $1 $TBK. EASIZE 
1374 004360 737 000040 011650 ADD #40, EASIZE :INCR TO FIRST INVALID SETTING 
1375 004366 013737 004764 011706 MOV SLSTBK,PHYMAX :START GEN OF MAX PHYSICAL 
1376 004374 011706 ASL PHYMAX : ADDR 
1377 004400 006337 011706 ASL PHYMAX : LOW 
1378 004404 006337 011706 ASL PHYMAX : 16 
1379 004410 006337 011706 ASL PHYMAX BITS 
1380 004414 006337 011706 ASL PHYMAX 
1381 006337 011706 ASL PHYMAX 
1382 004424 052737 003776 011706 BIS a57 76. grr ;SET UP TO USE LAST 1K TOO 
1383 32 013737 004764 011704 MOV $LSTBK,EABITS 
1384 004440 042737 171777 011704 BIC m7i777, EABITS ;SAVE ONLY EXT ADDR BITS 
1385 004446 000337 011704 SWAB ~—Ss«éEABITS =MOVE TO BIT POS. 3. 
1386 004452 006337 011704 ASL EABITS :MOVE TO BIT POS. 4,3 FOR DXx11 
1387 004456 000207 30$: RTS PC RETURN 
1389 .SBTTL ROUTINE TO SIZE MEMORY 
1391 LPARAM AAAARAAAAEAEARAAAETAAAREAAAARH EERE RARE Heh AReeeeeeeeeeereses 
1392 ;*CALL: 
1393 :* JSR PC. $SIZE 
1394 7 RE TURN 
1395 :*$LSTAD WILL CONTAIN: 
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OUTINE TO SIZE MEMOR 


;* WITH KT11 OPTION 

;* WITHOUT KT11 OPTION 

>*$LSTBK WILL CONTAIN THE LAST a AS 

:*$KT11 IS THE MEMORY MANAGEMENT KEY 

:*BITO? = . DON'T USE MEMORY MANAGEMENT 
BE Po BEFORE THE CALL 


MUST 
‘*BIT1S = Q DON’T HAVE MEMORY MANAGEMENT OPTION 


=~ LAST VIRTUAL ADDRESS OF THE LAST BANK 
= LAST Res + asthe ADDRESS OF AVAILABLE MEMORY 


DETERMINED BY ROUTINE 


$SIZE: MOV RO,-(SP) ;zSAVE RO ON THE STACK 
MOV R1,-(SP) ;sSAVE R1 ON THE STACK 
MOV R2,-(SP) ;:SAVE R2 ON THE STACK 
MOV R3,-(SP) ;SAVE R35 ON TH 
MOV OFERRVEC , = (SP) 


SP RO ;SA 
$3Set THE ERRVEC PS TO THE PRESENT PS 


E 
QAERRVEC+2,-(SP) 


; E STACK 

3; SAVE PRESENT ERROR VECTOR PS & PC 
AVE THE STACK POINTER 

H OLD PSW AND PC ON STACK 


MOV (SP) +, aMERRVEC Coe s:SAVE THE PSW IN a#ERRVEC+2 
MOV #3776._R1 ; ;SETUP_ADDRESS 
STB ss (PC) + USE MEMORY MANAGEMENT? 
$KT11: WOR 00 ESET TO USE MEMORY MANAGEMENT 
BPL SCORE IF NO 
MOV #SKTNEX ,@#ERRVEC ::SET FOR TIMEOUT 
TST SRO ::kKT11 ARE YOU THERE? 
BIS #100000,$KT11 =: YES==-SET KT11 Kk 
CLR -(SP) >: INITIALIZE FOR ‘PAR'' LOADING 
MOV #KIPARO,R2 ADDRESS OF FIRST 'PAR™ 
MOV “D8,R3 = IGHT 'PAR.'S'’ AND EIGHT ‘PDR.'S'' 
1$: MOV #77406, -40(R2) iP = 4K, UP, READ/WRITE 
MOV (SP), (R2)+ **LOAD 'P 
ADD #200. (SP) ; ;UPDATE 5 NEXT ‘PAR’ 
SOB 3.1$ :LOOP UNTIL ALL EIGHT ARE LOADED 
MOV #177600, -(R2) i 3 SETUP KIPAR? FOR 1/0 
CLR -(R2) ETUP KIPAR6 FOR TESTING 
MOV W#2$,aMERRVEC  ::CATCH TIMEOUT IF NO SR3 
MOV #20, a#SR3 ;7ENABLE 22 BIT MODE 
BR THIS PDP-11 HAS A SR3 REGISTER 
2$: CMP (SP) +, (SP)+ 1301 LEAN OFF THE STACK=-NO SR3 
3$: INC ayvsRO : TURN ON MEMORY MANAGEMENT 
MOV #SKTOUT .a#ERRVEC 3g SET FOR TIME OUT 
4$: TST a#143776 i: ON NON-EX-MEM 
ADD #40, (R2) > :MAKE A 1K STEP 
CMP @*KIPAR7,(R2)  ::LAST ONE? 
BHI ;3NO=-TRY IT 
$KTOUT: MOV (R2) .R2 =GET LAST BANK+1 
CLR avsro >: TURN OFF MEMORY MANAGEMENT 
BR SSIZEX 
SKINEX: BIC #100000, $KT1 ::KT11 NON-EXISTENT 
SCORE: MOV #$CROUT, SrERRVEC’ -:SET FOR TIMEOUT 
CLR R2 UP BANK 
1$: ADD #4000,R1 23 INCREMENT BY 1K 
ADD #40,R2 >:1K STEP 
TST j ;; TRAP ON TIME OUT 
CMP #177776.R1 > LAST ONE 
BNE > =NO=-TRY AGAIN 


SEQ 0032 


a ee ee ee ee 


3 
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| 
2 DXJB.P11 24-MAR-80 09:31 OUTINE TO SIZE MEMORY SEQ 0033 
| 1452 004716 162701 004000 $CROUT: SUB #4000,R1 
| 1453 006722 162702 000040 $SIZEX: SUB #40, R2 ;;DROP BACK 
1454 004726 010006 MOV RO, SP RESTORE THE STACK 
1455 004730 012637 000006 MOV (SP) +, AMERRVEC+2 ::RESTORE ERROR VECTOR 
1456 004734 012637 000004 MOV (SP) +. a#ERRVEC 
1457 004740 010137 004762 MOV R1,$LSTAD ::LAST ADDRESS 
1458 004744 010237 004764 MOV R2,$LSTBK >:LAST BANK 
1459 004750 012603 MOV (SP)+,R3 > :RESTORE R3 
1460 004752 012602 MOV (SP) +_R2 RESTORE R2 
1461 004754 012601 MOV (SP)+-R1 RESTORE R1 
1462 004756 012600 MOV (SP)+-RO > :RESTORE RO 
1463 004760 000207 RTS PC 
1464 004762 000000 $LSTAD: .WORD 0 :: CONTAINS THE LAST ADDRESS 
1465 004764 000000 $LSTBK: .WORD 0 >: CONTAINS THE LAST BANK 


1467 .SBTTL MODULE 1.3 CHECK PARAMETERS 


ees es ee ee ae ss 
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2 P11 24=MAR-80 09:31 1.3 CHECK PARAMETERS SEQ 0034 
| 1468 MODULE 1.3 CHECK PARAMETERS 
| 14670 : CALLED AS FOLLOWS 
1472 : JSR RS. CHE CKP 
1473 ; . WORD 
1474 : THIS MODULE HAS RESPONSIBILITY FOR VALIDATING PARAMETERS 
1475 : INPUT BY THE OPERATOR. IT COMPARES THE INPUT PARAMETER 
1476 : AGAINST PARAMETER LIMITS DEFINED IN THE INPUT PARAMETER 
1477 : LIMITS TABLE. IF THE PARAMETER IS OUTSIDE THE SPECIFIED 
1478 : LIMITS, AN ERROR MESSAGE IS OUTPUT AND ALL ONES IS RETURNED 
1679 ° IN RO. IF THE PARAMETER IS OK, ALL ZEROS IS RETURNED IN 
1481 ; 
1482 : X DEFINES THE PARAMETER TO CHECK AS FOLLOWS: 
1483 : X=2 STARTING TEST NUMBER 
1484 : X=3 BASE ADDR OF DX CONTROL REGS 
1485 : X= DX VECTOR ADDRESS 
1486 : x=5 DX PRIORITY 
1487 : THE PARAMETER TO BE CHECKED IS PASSED IN RO. 
1489 004766 012501 CHECKP: MOV (R5)+,R1 :GET PARAMETER TO BE CHECKED 
1490 004770 120127 000002 CMPB—sR}1,#2 -IS IT TEST NO? 
1491 004774 001007 BNE 10$ =BR IF NO 
1492 004776 020037 011614 CMP RO, LTESTN =CHECK LOW LIMIT 
1493 005002 002443 BLT 90$ :BR I OR 
1494 005004 020037 011616 CMP RO.HTESTN =CHECK HIGH LIMIT 
1495 005010 003040 BGT 90$ “BR IF ERROR 
149% 005012 000446 BR 80$ -GO TO OK RETURN 
1497 005014 120127 000003 10$:  CMPB- R1,43 71S IT BASE ADDR OF Dx 
1498 005020 001007 BNE 20$ =BR IF NO 
1499 005022 020037 011620 CMP RO, LUBA :CHECK LOW LIMIT 
1500 005026 002431 BLT “BR IF BAD 
1501 005030 020037 011622 CMP RO, HUBA =CHECK HIGH LIMIT 
005034 003026 BGT 4 “BR IF BAD 
1503 005036 000434 BR 80$ 70K, RETURN 
1 005040 120127 000004 20$:  CMPB R1.44 71S IT THE VECTOR? 
1505 005044 001007 BNE o$ :BR IF 
1506 005046 0 011624 CMP RO,LVEC >CHECK THE LOW LIMIT 
1507 005052 002417 BLT “BR IF 
1508 005054 020037 011626 CMP RO, HVEC >CHECK THE HIGH LIMIT 
1509 005060 003014 BGT “BR IF BAD 
1510 000422 BR 80$ *OK, RETURN 
1511 00 120127 000005 30$: CMPB- R1.45 71S PARM PRIORITY LEVEL 
1512 005070 001007 BNE 40 *BR IF NO 
1513 005072 020037 011630 CMP RO. LPRIOR =CHECK LOW LIMIT 
1514 005076 002405 BLT 90$ “BR IF BAD 
1515 005100 020037 011632 CMP RO. HPRIOR *CHECK HIGH LIMIT 
1516 005104 003002 BGT 90$ “BR IF BAD 
1517 005106 000410 BR 70K, RETURN 
1518 005110 000000 40$: HALT sERROR, BAD MODULE CALL PARM 
1519 005112 004537 005134 90$: JSR R5, PRINT :PRINT PARM LIMIT ERROR 
1520 005116 012723 .WORD  BADP :ADDR OF MESSAGE 
1521 005120 000000 “WORD 0 :CONTROL WORD, CRLF * DON'T CONVERT 
1522 005122 012700 177777 MOV #-1,R0 *SET ERROR RETURN CODE 
1523 005126 000401 BR 95$ RE TURN 





er ee” - == 


- - -- HF 
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CIDXIB. P11 ot 


1524 005130 005000 
1282 005132 000205 


1527 


0 09:31 


80$: 
95$: 
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1.3. CHECK PARAMETERS 


CLR RO 
RTS R5 


.-SBTTL MODULE 1.5.1 


;SET GOOD RETURN CODE 
;RETURN TO CALLER. 


WRITE TTY 


SEQ 0035 


: 1528 


—_— 
it 
235 


BIRARAGSS 





SREEPER ES sees 


BE 


NRK WwW 


Ww 
EEA 
=50 


SISTER 


BSR ARAN ASS 


cy el ee ee me em et ee ee me ee ee ee ee ee ee me ee gg ee ee a ed od nd os LU 


R 





oe 000001 


04 
01 ar 4 005176 


105737 001157 
100002 


Re 
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: MODULE 1.3.1 WRITE TTY 
: THIS MODULE HANDLES ALL OUTPUT TO THE OPERATOR 
: CALLED AS FOLLOWS 
: JSR RS PRINT 
: .WORD MSG :ADDRESS OF MESSAGE OR OCT # 
: “WORD CTL 
: RE TURN 
: CTL= BITO=1 :DONT = CRLF BEFORE MESSAGE 
: BIT15=1 =CONVERT OCTAL TO ASCII AND PRINT 
PRINT 
MOV RO,-(SP) ::PUSH RO ON STACK 
MOV R1.=(SP) > =PUSH R1 ON STACK 
Moy (R5)+,RO -GET ADDR OF MSG 
V (R5)+.R1 :GET PRINT CONTROL WORD 
BIT #1,R1 DO WE NEED A CRLF? 
BNE 10$ “BR IF NO 
TYPE TRAP TO TYPE ROUTINE 
,WORD #CRLF1 “POINTER TO CRLF ASCII 
10$: TST R1 *IS IT OCTAL? 
BPL 20$ :BR IF NO 
MOV (RO) ,-(SP) “PUT OCTAL # ON STACK 
TyPOC war :T YPE 6 CHAR VIA TRAP 
20$: MOV RO, 25$ ;PUT MESSAGE ADDR INLINE 
TYPE ‘TRAP TO TYPE ASCII RIN 


258: .WORD 0 :POINTER TO MSG GOES HERE 
"MOV (SP)+,R1 ::POP STACK INTO R1 
MOV (SP) +-RO >:POP STACK INTO RO 
5 “RETURN TO CALLER 


RTS R 
; TYPE TRAP CALL COMES HERE 
~SBTTL TYPE ROUTINE 


J TAA AAAAAAAAAAAAAAAAAAAEAAAEAAAERAERARAAEAERAERAEEREEEEEERKREREKRKEKREEE 


: #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 SYTE. 


*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
$ #NOTE SNULL CONTAINS THE CHARACTER " BE USED AS THE FILLER CHARACTER. 
: *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER ws ~ insane REQUIRED. 
; *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTF 


*CALL: 
“#1) USING A TRAP INSTRUCTION 
- TYPE §_,MESADR ;iMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


 *OR 

:* TYPE 

.* ME SADR 

** 

$TYPE: TSTB $IPFLG ::1S THERE A TERMINAL? 
BPL 1$ :BR IF YES 


SEQ 0036 


SE eee ~ 
: 





CZDXJBO DX11-8 ADDRESSING TEST MACY11 gles 4 

CZDXJB.P11 24-MAR-80 09:31 OUT INE 
1584 005214 HAL T 
1585 005216 000407 BR 
1586 3220 010046 1$: MOV 
1587 005222 017600 000002 MOV 
1588 5226 112046 2$: MOVB 
1589 005230 001005 BNE 
1590 005232 005726 TST 
1591 005234 O12 60$: MOV 
1592 5236 062716 000002 3$: ADD 
1593 005242 RTI 
1594 005244 122716 000011 4$: CMPB 
1595 005250 001430 BEQ 
1596 005252 122716 000200 CMPB 
1597 005256 001006 BNE 
1598 3260 005726 TST 
1599 005262 104401 TYPE 
1600 005264 001161 $CRLF 
1601 3266 105037 005422 CLRB 
1602 005272 755 BR 
1603 005274 737 005356 5$: JSR 
1604 5300 123726 001156 6$: CMPB 
1605 005304 1350 BNE 
My 5 005306 013746 001154 MOV 
1608 005312 105366 000001 7$: DECB 
1609 005316 002770 BLT 
1610 5320 737 005356 JSR 
1611 005324 105337 005422 DECB 
My a 005330 770 BR 
+d sHORIZONTAL TAB 
1616 005332 112716 000040 8$: MOVB 
1617 005336 004737 005356 9$: JSR 
1618 342 132737 000007 005422 BITB 
1619 5350 001372 BNE 
1620 0053552 005726 TST 
1621 005354 000724 BR 
1622 005356 105777 173566 STYPEC: TSTB 
1623 5362 100375 BPL 
1624 005364 116677 000002 173560 MOVB 
1625 005372 122766 000015 000002 CMPB 
1626 005400 1003 BNE 
1627 005402 105037 005422 CLRB 
1628 005406 BR 
1629 005410 122766 000012 000002 1S: CMPB 
1630 005416 1s55 BEQ 
1631 005420 10522 INCB 
16 005422 SCHARCNT : . WORD 
16335 005424 000207 STYPEX: RTS 
1634 
1635 
1636 
1637 
1638 
1639 


3 
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3$ 
RO,-(SP) 
a2(SP),RO 
(RO) +,-(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 
#HT , (SP) 
MCRLF , (SP) 
5$ 


(SP) + 
SCHARCNT 

2$ 

PC ,STYPEC 
SFILLC, (SP)+ 
2$ 
SNULL .- (SP) 
1 (SP) 

6$ 
PC,STYPEC 
SCHARCNT 

7$ 
PROCESSOR 
#° (SP) 
PC,STYPEC 
#7, SCHARCNT 
9$ 

(SP) + 

2$ 

a$STPS 


STYPEC 
2(SP) ,aSTPB 
+ es o2(SP) 


ro. 
WF, score 
STYPE 

(POs 

0 

PC 


:TLEAVE™ IF NO TERMINAL 


R 
SIGE Woeahar OF ASCIZ STRING 
: PUSH CHARACTER TO . TYPED ONTO STACK 
:;BR IF IT ISN‘*T THE TERMINATOR 
;31F TERMINATOR POP IT OFF THE STACK 
;sRESTORE RO 
+ sADJ JUST RETURN PC 


T 
: BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


:;POP <CR><LF> EQUIV 
73 TYPE A CR AND LF 


+ ¢ CLEAR CHARACTER COUNT 


A NULL NEED TO BE TYPED? 
NO--GO POP THE NULL OFF OF STACK 


oi er an TAB WITH SPACE 
3: TYPE A SPACE 
$4 hye IF NOT AT 
3:2 TAB STOP 
aor SPACE OFF STACK 
;GET NEXT CHARACTER 
:;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
e215 at ae ym A CARRIAGE RETURN? 


i VES-=CLEAR CHARACTER COUNT 
:31$ ae eee LINE FEED? 


;:COUNT THE CHARACTER 
3; CHARACTER COUNT STORAGE 


:TYPOC TRAP CALL COMES TO $TYPOC TAG BELOW 
~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


FTAA AAAAAAAAAAAEARAAAAAEAAAAAAAAAAAAAAAEARREEAREAEHEEAAEEEEEE EAE 


SSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 





SEQ 0057 





esasssssssessssss 


Se 
RE 


SNSRERERSRRLS 


SOSSSS OSS OOS 


: 


24-MAR-80 


R 
~ 


=ATS8s8s 


—OoO 
we) 
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09:31 


000001 
005653 
000002 
000001 
000006 
000005 
005653 


000006 
005652 
005651 
000012 





24-MAR-80 09: 
BINARY TO OCTAL (ASCII) 


*OCTAL (ASCII) NUMBER AND 
Space HERE TO SET 


2e2a ee ee ee 
oO 


ew 


28 


SERB 883 


bm 
lon) 


—oO-~ 
Zaz 


22 
hae 
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TYPE IT. 
UP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;sNUMBER TO BE hp 


OR 0 
:;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


atte an tree TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


3 NUMBER TO BE TYPED 
3;;CALL FOR TYPEOUT 


aa 
ee HERE FOR TYPEOUT OF A 16 BIT NUMBER 


; NUMBER TO BE TYPED 
:-CALL FOR TYPEOUT 


:zPICKUP THE MODE 

;sLOAD ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 
;sADJUST RETURN ADDRESS 


:sSET THE ZERO FILL SWITCH 
:sSET FOR SIX(6) DIGITS 
33ST = ITERATION COUNT 


7: SAVE RS 
3:GET THE NUMBER OF DIGITS TO TYPE 


:sSUBTRACT IT FOR MAX. ALLOWED 
;zSAVE IT FOR USE 

::GET THE ZERO FILL SWITCH 
;sPICKUP THE INPUT NUMBER 
;;CLEAR THE OUTPUT WORD 
ROTATE MSB INTO *'C’’ 


ee DO 
:2FORM THIS DIGIT 


DIGI 


7 

& 
wn 
=% 
w-<=w 
mon 
“~ 
=x 
—_ 
nm 
© 
*~ 


3 T SUPPRESS AN f 
:sMAKE THIS DIGIT ASCII 
::MAKE ASCII IF NOT ALREADY 
:zSAVE FOR TYPING 


CZDXJE0 DX11-8 ADDRESSING TEST MACY11 yeahh co 
“MAR-80 09:31 


CZDXJB.P11 


3 


ee ed ed od od “sd So ow) 2) ow 


NN 
— 


SassasaeSeSSeS 
S S 
: 


WN—O 
33388 
3 


eh 


005606 
005612 
005616 


104401 
105337 
347 


005646 
005650 


7$: 


6$: 


8$: 
SOCNT: 


SOFILL: . 
SOMODE: .WORD 
.SBTTL MODULE 2.0 
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NARY TO OCTAL (ASCII) AND TYPE 


SSent 


em 


+260 TYPE THIS DIGIT 
33 T BY 1 


+ BR ic MORE TO DO 
F DONE 


: 7 INSURE LAST DIGIT ind T A BLANK 
::GO DO a DIGIT 


ST R3 
SISET THE STACK FOR RETURNING 
; sRETURN 


¢ ¢ STORAGE FOR ASCII DIGIT 
NATOR Pan ROUT INE 


TCH 
: :NUMBER OF DIGITS TO TYPE 


INTERRUPT HANDLERS 


SEQ 0039 





CZDXJBO DX11-B ADDRESSING TEST MACY11 30A( 
24-MAR MOD 


CZDXJB.P11 


— 
~“ 
— 
, a 


SIN SN NNN NN NNN 
CO NOME WN] OOONOUW 


NU Lord oD —-— 


Pepe efet 


~S 
NRRRRO 
who O0 


Par. 
NOW 





80 09:31 


000020 
005672 
000002 


005726 


000004 000002 


1052 
ULE 2.0 


B 4 
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INTERRUPT HANDLERS 


MODULE 2.0 


INTERRUPT HANDLERS 


-SBTTL TRAP DECODER 


FERRARA AREER EAE RE RERREREEERREERAEERERRERERER RRR EE 
:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: 


1$: 


2 (SP) ,~(SP) 
#20, (SP) 
#1$,-(SP) 


RO,-(SP) 
2(SP) ,RO 
-(R 


R 
$STRPAD (RO) ,RO 
RO 


SEQ 0040 


;;ASSUME THE STATUS OF 
33 THE "he NOT ALLOW 


:: T-BIT 


T 
izSET THE NEW STATUS 


7: SAVE RO 


ee 
ee 


3z:GET TRAP ADDRESS 
KUP BY 2 


:;GET RIGHT BYTE OF TRAP 
:zPOSITION FOR INDEXING 


; INDEX TO TABLE 
3:G0 TO ROUTINE 


:sTHIS IS USE TO HANDLE THE ‘'GETPRI** MACRO 


7:MOVE THE PC DOWN 
7z:MOVE THE PSW DOWN 
;zRESTORE THE PSwW 


STRAP2: 


MOV 
MOV 
RTI 


(SP) ,~<(SP) 
4(SP) ,2(SP) 


-SBTTL TRAP TABLE 


>*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “‘TRAP’’ INSTRUCTION. 


$TRPAD: 


STRAP2 

3; CALL=TYPE 
3; CALL=TYPOC 
3; CALL=TYPOS 
3; CALL=TYPON 


; ; CALL=GTSWR 


3: CALL=CKSWR 
3; CALL=RDCHR 
:; CALL=RDLIN 
3; CALL=RDOCT 


TRAP+1 (104401) 
TRAP+2( 104402) 
TRAP+3(104403) 
TRAP +4 (104404) 


TRAP+5 (104405) 


TRAP+6(104406) 
TRAP+7(104407) 


TTY TYPEQUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOF T-SWR 
TTY TYPEIN CHARACTER ROUTINE 


TRAP+10(104410) TTY TYPEIN STRING ROUTINE 
TRAP+11(104411) READ AN OCTAL NUMBER FROM TTY 


eer rer ang 8 LS SL a —  s . .  . ..6Kn nn — EI a er a a ia ee ee 


S 


Oo 
— 


oS 


SINS I J 
& UR 


oo 
Oo 


Peter er rr Prepeeerer crete 


00 00 00 Op On OO 
ee ee eed eed ed 
MWh Oo 
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006116 
000340 


005752 
000340 


047520 


EST 
: 


MACY11 30A(1052) 
TRAP TABLE 


000024 
000026 


000024 


000024 


000024 
000026 


042527 


~SBTTL POWER DOWN AND UP ROUTINES 


C 4 
24-MAR-80 09:45 PAGE 42 


, TARA AA AERA AAEAARAAAERAAEAAEAREREEEAAERERRREKEEERES 


" POWER DOWN ROUTINE 


$PWRDN: MOV 


#SILLUP ,a#PWRVEC n7t 38 - FAST UP 


RO,- 


#340, QMPWRVEC+2 ;:PR 
P) ¢ ¢PUSH RO ON STACK 


: PUSH a ON STACK 
#SPWRUP ,aAPWRVEC ;;SET UP VECTOR 


SEERA 


“ POWER UP ROUTINE 
$PWRUP: MOV 


1$: 


SPWRMG : 
SPWRAD : 
SILLUP: 


HALT 
BR 


SSAVRE6: 0 
SPOWER: .ASCIZ <15><12>’ POWER’' 


EVEN 


#SILLUP ,a#PWRVEC Rats FOR FAST DOWN 
$SAVR6, SP T SP 


SSAVR6 SWAIT LOOP FOR THE TTY 
SSAVR6 7;z;WAIT FOR THE INC 
1$ is WORD 
(SP) +,aSWR ;zPOP STACK INTO @SWR 
(SP)+,R5 a INTO R5 
(SP)+,R4 ss INTO R4& 
(SP)+,R3 se INTO R3 
(SP)+,R2 38 INTO &2 
(SP)+,R1 i INTO R1 
(SP)+,RO ;POP STACK INTO RO 
#SPWRDN , AFPWRVE EC i gSET UP THE POWER DOWN VECTOR 
#340, aMPWRVEC+2 ::PRIO:7 

REPORT THE POWER FAILURE 
SPOWER sPOWER FAIL aettant POINTER 
(PC) +, (SP) « CRESTART AT RESTAR 
RESTART 7 RESTART ADDRESS 


ee eee 


2 THE POWER UP SEQUENCE WAS STARTED 
:; BEFORE THE POWER DOWN WAS COMPLETE 


T THE SP HERE 


SEQ 0041 


fatal 


| 1816 
| 1817 
1818 


R= 
ant 
. 2) 


SRRRRE RR Se 
CONAUSWH— 


: 


1830 
ats 


—— 


ZDXJB.P11 








006506 
006244 
006252 
011710 
011712 
011600 


010752 


ee —_-— ——— _~_ — 


011712 


ZDXJEQ0 DX11-B ADDRESSING TEST MACY11 "Tamaki 
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—GFe Be Oe 
7a) 
“ 
—+ 


; INTERRUPT WILL 
INTR1: 


5$: 
8$: 
10$: 
12$: 


15$: 


~SBTTL MODULE 3.0.1 


MODULE 3.0.1 


D 4 
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0.1 TST1 FAST NPR DATA TEST 


TST1 FAST NPR DATA TEST 


FAST NPR DATA TEST 


THIS IS A FUNCTIONAL TEST TO CHECK THE ABILITY 
OF THE DX TO DO NPR'S OF DATA INTO MEMORY 


WITH LARGE BYTE COUNTS. 

ITS ABILITY TO COUNT AND ALL 
THE DATA TRANSFERS ACCESS AL 

AVAILABLE MEMORY EXCEPT WHERE THE 


EXERCISED. 


THE DXBA IS CHECKED FOR 
CARRIES IN es COUNTER ARE 


IS LOCATED, 


PROGRAM 
AND THE AREA WHICH MAY BE OCCUPIED BY A LOADER. 


JSR R5, INIT 
JSR PC ,DXRES 
JSR R5 ,BUF AD 
. WORD 


100402 


MOV AVECT,RO 


TST INTERR 

BN 8$ 

MOV #5$,aSP 
MOV #83 ,R5 


. WORD 

-WORD ERRI 
DEC R1 
BNE 10$ 
BIC #D 


BIC #30 ,aDXCSA 
DXMOO 


BM 30$ 
MOV cayenne SD 


s INITIALIZE THE Ra As pet PS, ETC 
;PUT THE DX IN A GOOD KNOWN STATE 

;GET FIRST BUFFER BASE AND SET UP K 

:CTL BIT 15=INITIALIZE, BUFFER BASE 'DIVISABLE 
BY 400. SET UP BUFMAX 


SE 

:DX INTERRUPT 

AND DX PSW 

sBUFFER SIZE A LITTLE BIGGER THAN OFFSET 
;TO CREATE A CARRY OUT OF HIGH ORDER BIT 
:CLEAR THE BUFFER 

:SET DATA PATTERN AND 

sSET UP DX EXT ADDR BITS 

;SET UP DX BUS ADDR REG. 


;START THE DX 
BYTE COUNT 


RETURN HERE AFTER DATA TRANSFER IS COMPLETE 


:DID WE GET HERE VIA INTER 
;BR_IF NO, STACK IS OK 
:SET UP RET ADDR 
sRELIEVE INTERRUPT STATUS 
4 UP JSR RETURN ADDR 
;RELIEVE pry tny STATUS 


; ID 

;ADDR OF ERROR MESSAGE 
sDECREMENT BUFFER COUNT 

sLOOP UNTIL ALL OF BUFFER CHECKED 
; TURN OFF FAST MODE 

; TURN OFF FAST MODE 
:CLEAR POSSIBLE CARRY n EA BITS 
;CHECK IF FIRST _! TWO PASSES 
:BR IF NOT FIRST PASS 

>SET UP SECOND DATA PATTERN 

:DO TRANSFER WITH THIS DATA 


SEQ 0042 


Oe eee ea ae - -—™ 


CZDxJB0 DX11-B ADDRESS! 
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CZ2DXJB.P11 
1872 006344 


1873 006350 
1874 006354 


1904 006506 


ee ee ee Se 
NAW 


—s © FF fT 
MEW O 
Ww 
Nm 
Nm 


| 
| 
| 
1891 


na 


013777 
012577 
005046 
012746 
000002 
052777 
052777 

77 


oe Sl eee ——_——— ee ee 


MACY11 30A(1052) 
MODULE 3.0.1 


010752 


000001 


003154 


006506 


30$: 
ENDT1: 


i, XGO: 


64$: 


10$: 


INTERR: 


BUF CLR: 


10$: 


E 
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FAST NPR DATA TEST 


;PUT BUFFER BACK TO ZEROS 


MOV DXMOO . @DXMOA 
MOV (R5)+,@DXBCA 
CLR - (SP) 

MOV #64$,-(SP) 

RTI 

BIS #103,aDXCSA 

BIS #SELO!HLDO, aDXMOA 
BIC #SELO!HLDO,aDXMOA 
BIS #CMDO ,@aDXMOA 
BIC #CMDO ,aDXMOA 
BIS #SOSIEN, @DXESA 
CLR INTERR 

CLR R1 

DEC R1 

BNE 10$ 

JSR R5,ERRR 

-WORD 2 

-WORD ERR2 

MOV #1, INTERR 

RTS R5 

-WORD 0 ;SET TO 


SUBROUTINE TO CLEAR THE 


BUF BAS ,RO 
BUF SZE,R1 
0) + 


TST1 


PC .BUFCLR 
RS BUF AD 
402 

R1 
LOOP1 
ENDTST 


“ety 


;GET NEXT BUFFER ADDRESS 
;BASE TO BE DIVISABLE BY 400 
: CHECK FOR OUT OF MEMORY 
;BRANCH IF THERE IS MORE 


ZOTHERWISE WE'RE DONE WITH TEST 
SUBROUTINE TO START THE DX IN SOSIEN MODE 
;SEND DATA AND OP OUT TO MAINT REG 


i as BYTE COUNT FROM PASSED PARM. 
T NEW PS ON STACK 

: PUT NEW PC ON STACK 

;;POP NEW PC AND PS 


Hod FUNCTION TO IBM WRITE 
AND ENABLE INTERRUPTS 
sFORCE DX SELECTION 
:DROP SELECT LINES 
sRAISE COMMAND OUT 


“DROP COMMAND OUT 
ENABLE FAST SERVICE OUT/SERV IN 


;TO UNLEASH 
;CLEAR NO INTERRUPT OCCURED FLAG 


;WAIT HERE FOR INTERRUPT 
sERROR, 


INTERRUPT NEVER CAME 
sERROR IDENTIFER 

sERROR MESSAGE POINTER 

:SET NO INTERRUPT OCCURED FLAG 
; CONTINUE TESTING 


1 IF DX11 FAILED TO INTERRUPT 


CURRENT BUFFER 
;GET BUFFER START 


;GET BUFFER SIZE 
;CLEAR A BYTE 

;COUNT IT 

sLOOP TO CLEAR BUFFER 


;RETURN TO CALLER 


SEQ 00435 


ee eee ar rr ee ee 
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XJB.P11 24-MAR-80 09:31 E 3.1 TEST INITIALIZATION SEQ 0044 


012746 
012746 
000002 


000340 
006542 


— =D 
YVI~wo 
SS 

MO 


Sos 
—— 


000010 
000200 
000006 
000001 
0012350 


014000 
011764 


016000 
109000 


002772 


002702 
002706 


INIT: 


64$: 


DXRES: 


5$: 


10$: 


~SBTTL MODULE 3.1 TEST INITIALIZATION 
MODULE 3.1 TEST SOFTWARE INITIALIZATION 


CALLED AS FOLLOWS: 


JSR R5, INIT 
RETURN COMES HERE 


MOV #340,-(SP) ;;PUT NEW PS ON STACK 
MOV #64$ ,-(SP) ;;PUT NEW PC ON STACK 
RTI ;:POP NEW PC AND PS 


CLR ERR sRESET ERROR OCCURRED INDICATION 
MOV R5,LOCKAD sSET UP LOCK ON ERROR RETURN ADDR 
CLR aaa sCLEAR MISSED INTR FLAG 


HARDWARE INITIALIZATION SUBROUTINE 


sDISABLE DX TIME OUT, DEBUG ONLY 
sCLEAR DONE AND LOCKO 
>SET FUNCTION TO RESET 
C > ISSUE THE DX RESET 
BIC #1230, aDXCSA sCLEAR POTENTIAL DISASTER OF ONLINE OR INTEN 
:CLEAR EA BITS ALSO 
MOV #SPW,@DXOSA ;SET UP CU OFFSET TO SPw TABLE 
TST SPWMVD :1S SPW TABLE AT HOME BASE? 


5$ ;BR IF YES 
MOV #SPW+2000,aDXOSA SET UP os SPW LOCATION 
BIT 4 ater aR LOCKO ON? 


BIS #10, aDXESA 
BIC ADONE ,aDXCSA 


RESET . ;WE‘RE IN TROUBLE. Dx DIDN" T RESET 
BR DXRES :GO BACK AND MAKE SURE IT'S CLEARED 
RTS PC : RETURN 


rr ee a eee ae — -— — —— - 


= em ee 
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1988 


SSSSSZSESEF 


: 
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000002 
012705 
000205 


062737 
023737 


eo 


011724 
006366 


006506 
007002 
007010 
002704 


010752 
002664 


000200 
000004 
000030 
000002 


000002 
011720 





011712 
011720 


177777 


re ee eee ae eee ae ele 
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-SBTTL MODULE 3.0.2 TST2 NPR ADDRESS UNIQUENESS 


; MODULE 3.0.2 NPR DATA ADDR UNIQUENESS TEST 

; THIS MODULE TESTS THE DX11°S ABILITY TO UNIQUELY ADDRESS EACH 

; WORD OF MEMORY. THIS yi IS ACCOMPLISHED BY WRITING A BACKGROUND 

; IN A BLOCK OF MEMORY. A WORD IS THEN TRANSFERRED FROM THE DX TO THE 


MEMORY BLOCK. THE CPU CHECKS THAT THE WORD ARRIVES AT ITS 
; EXPECTED DESTINATION. IF YES THE WORD IS RESTORED TO MATCH THE 
; BACKGROUND, AND THE NEXT WORD IS TESTED. THIS IS REPEATED 
; FOR EACH WORD IN THE BLOCK AND FOR EACH BLOCK IN MEMORY. 


NOTE: THIS TEST MAY NOT DETECT ADDRESSING PROBLEMS 
WHICH ARE COMMON TO THE CPU AND Dx11. I.E. 


TST2: JSR RS, INIT 
JSR PC .DXRES 
JSR R5 .BUF AD 
-WORD 101000 
MOV AVECT.RO 
MOV #INTR2, (RO) + 
MOV #340, (RO) *SET INTR PSW 

#1000,BUFSZE § :ESTABLISH BUFFER SIZE 

JSR PC BUF CLR *CLEAR THE BUFFER 

MOV BUFBAS,DATAD INITIALIZE DATA ADDR 

MOV BFBAPH,BFADPH :GET PHYSICAL BASE ADDR 

EACUR,@DXCSA _ : SET EA BITS IN THE DX11 

MOV #100377,DXM00  =DATA PATTERN TO BE WRITTEN BY Dx 


MOV BFADPH,@DXBAA ;SET UP DX DATA ADDRESS 
JSR R5 ,DXGO sSTART THE DX 
-2 sBYTE COUNT = 2 


ee INTERRUPTS TO ooo AFTER NPR'ING A WORD 
INTR2: TST INTERR :DID WE COME HERE VIA DX INTR 


: INITIALIZE THE SOF TWARE 
s INITIALIZE THE HARDWARE 
:GET STARTING BUFFER ADDRESS 
;PARM MEANS INIT AND SET UP1000 BYTE BUFFER 
:GET THE DX VECTOR ADDR 
:SET UP RETURN ADDR 


BNE 8$ “BR IS NO, STACK IS OK 
MOV #5$.aSP 7 SET RETURN ADDR 
RT] “RELIEVE INTERRUPT STATUS 
5$: MOV #8$.R5 ¢SET UP RETURN ADDR 
RTS R5 sRELIEVE SUBROUTINE STATUS 
8$: CMP @DATAD , #=1 “DID DATA GET WHERE IT WAS SUPPOSED TO? 
; ASSUME CPU CAN ADDRESS MEMORY CORRECTLY 
BEQ 3 CH IF OK 
JSR R5,ERRR :REPORT THE ERROR 
. WORD 3 a NUMBER THREE 
-WORD ERR3 ADDR OF ERROR MESSAGE 
10$: CLR @DATAD STORE THE WORD UNDER TEST 


RE 
BIC #DONE , @DXCSA :TURN OFF INTERRUPTS 
BIC #SOSIEN,@DXESA CLEAR FAST MODE 
BIC #30,aDXCSA ;CLEAR POSSIBLE CARRY IN EA BITS 
;BUMP THE PHYSICAL ADDRESS 
;BUMP DATA POINTER 


CMP DATAD , BUF MAX ;DONE WITH BUFFER? 


UNIBUS ADDRESSING PROBLEMS. 


SEQ 0045 
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| 47 
(CZDxJB.P11 — 26-MAR=B0 09:31 E 3.0.2 TST2 NPR ADDRESS UNIQUENESS SEQ 0046 
: 2012 07100 101716 BLOS — LOP2 ;BRANCH IF NO 
| 
2014 007102 004737 006510 JSR —- PC, BUF CLR ;RESTORE BUFFER 
| 2015 007106 004537 010300 JSR ——-RS. BUF AD :GET NEXT BUFFER 
| 2016 007112 001000 ,WORD 1000 :SIZE =1000 
| 3017 007114 005701 TST) RT :DID WE GET ONE? 
2018 007116 001674 BEQ LOOP? “BRANCH IF YES 
2019 007120 000137 001410 IMP ENDTST SOTHERWISE TERMINATE TEST 
| 


ee re ee ee ee ee ae i ee ee —— ee ee le 
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011732 


011712 


me ee ee el 


LOOPS: 


10$: 


———aee ee eee --o 
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. SBTTL TST3 SPW ADDRESSING 


MODULE 3.0.3 SPw ADDRESSING TEST 


THIS MODULE TESTS THE ABILITY OF THE DX TO ACCESS THE STATUS 
POINTER WORD (SPW) TABLE IN ALL POSSIBLE LOCATIONS IN MEMORY. 
A BASE ADDRESS FOR THE SPW IS GENERATED. 

THIS SPW TABLE IS FILLED WITH A PATTERN OF QOODEV 

SPU BASES ee TO THE DISPLACEMENT OF THE WORD FROM THE 


SPw BASE’ —"=000000 
SPW BASE +1 =000001 


SPW BASE +255=000377 


GIVING A TOTAL OF 256 WORDS FOR THE SPW TABLE WITH IMMEDIATE 
STATUS EQUAL TO THE DEVICE NUMBER. 

AN ISS SEQUENCE IS INITIATED WITH A DEVICE # OF 0. IF 

ADRECC AND ADRECD DON‘T COME ON FOR THIS DEV, NO TESTING IS DONE, 
THE DEV # IS INCREMENTED, AND ISS IS DONE AGAIN. 

IF ADRECC AND ADRECD COME ON IT MEANS THE DX JUMPERS ARE CUT TO 
RESPOND TO THIS DEV NUMBER. THE ISS SEQUENCE IS THEN CONTINUED 
UNTIL THE STATUS IS IN THE DXOS REG. THIS STATUS IS THEN 
CHECKED AND SHOULD BE EQUAL TO THE DEV # IF THE SPW WAS 

ACCESSED CORRECTLY. 


THIS PROCEDURE IS REPEATED FOR ALL 256 POSSIBLE DEVICES AT 
ALL POSSIBLE LOCATIONS FOR THE SPW. 


THE FIRST RECOGNIZED DEV NO. AND COUNT OF THE FIRST 
GROUP OF RECOGNIZED DEVICES IS SAVED AND PRINTED AT END 
PASS TIME. IF NO DEV IS RECOGNIZED AND ERROR MESSAGE 
IS OUTPUT AT THE END OF THE TEST. 


JSR RS, INIT : INITIALIZE THE SOFTWARE 

CLR RECORD -SET UP TO RECORD IBM DEV RECOG. 
CLR FRSTD ;SET TO RECORD FIRST DEV RECOGNIZED 

CLR DEVCT :CLEAR DEVICE COUNTER 

JSR PC DXRES “RESET THE DX 

MOV #400, CMD : INITIALIZE A COMMAND OF ZERO 
JSR R5 BUF AD “GET THE FIRST BUFFER ADDR 


-WORD 102000 :SPw TO BE ON 2000 BOUNDARY 
MOV #2000,BUFSZE § _:SET UP BUFFER SIZE 

JSR PC BUF CLR *CLEAR BUFFER 

CLR DEV *START AT DEVICE 0 


MOV BUFBAS .RO -GET SPW TABLE BASE 

MOV DEV, (RO) + :MOV IMMED. STATUS TO SPw EQUAL TO DEV 
INC DEV > INC TO NEXT STATUS = NEXT DEV 

CMP #255. DEV “IS DST FULL? 


a ee eee re 


SEQ 0047 
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103370 
005037 


09:31 


011730 
011732 
002000 
011732 
002000 
011730 
010752 
001000 
001000 
007620 
004560 
011730 
011730 


006510 
010300 


011752 


010752 


001410 
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002302 LOPS: 
002272 


10$: 


20$: 
30$: 


40$: 





24 

TSTS SPW ADDRESSING 
BHIS 10$ 

C DEV 

MOV BFBAPH , ADXOSA 
BIS EACUR ,a@DXCSA 
JSR R5,PTYGEN 
WOR DE 


¥ 
DEV ,@DXCAA 
BIS DEV, a@DXMOA 
BIS #ADRO ,@DXMOA 
BIT a 


2 
BIT #2, aDXCBA 
20$ 


R5 , SAVDEV 
BIS #HLDO!SELO,aD 
BIC #ADRO , @DXMOA 
BIC DEV, a@DXMOA 

CMD , aDXMOA 
BIS #CMDO ,@DXMOA 
BIC CMD , @DXMOA 
BIC #CMDO , aDXMOA 
CMPB ee 


JSR re 

> ERR4 

BIS #SRVO ,aDXMOA 
BIC — 


BR 

JSR R5 ,.DONTSV 

JSR PC ,DXRES 
DEV 


TSTB DEV 


LOP3 
JSR PC ,BUFCLR 
JSR R5 ,BUF AD 
2000 


. WORD 

TST R1 
BEQ LOOPS 
TST DEVCT 


BNE 40$ 
JSR R5,ERRR 


; 5 
-WORD ERRS5 
JMP ENDTST 


XMOA 


eC Wes 
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:D0 MORE IF IT IS NOT 

:START AT DEV 0 

;SET UP OFFSET FOR SPW 

:SET UP EXT ADDR BITS 

;ASSIGN PARITY TO THE DEVICE BYTE 
;ADDR OF roc TO ASSIGN PARITY TO 


:IS ADRECD ON? 

;BR IF ADDR NOT RECOGNIZED 

:IS ADRECC ON? 

;BR IF ADDR NOT RECOGNIZED 

;GO SAVE RECOGNIZED DEV DATA 
are SEL OUT, HOLD OUT 


; DROP 

sREMOVE DEVICE FROM BUSO 
;PUT CMD =0 ON BUSOUT 
sRAISE CMD OUT 

sREMOVE CMD FROM BUSO 
:DROP CMD OUT 

:IS pty EQUAL TO DEV? 


;BR IF OK 

;REPORT ERROR 
sERROR ID 

ZERROR MESSAGE ADDR 


sRAISE SERVICE OUT TO RELIEVE STATUS 
:DROP SERVICE OUT 


: GO he DEV DATA 


sLAST DEV? 

:BR_IF MORE DEVICES 

;CLEAR OLD BUFFER BEFORE GETTING NEW ONE 
G ER BASE 


2000 
:DID WE GET ANOTHER BUFFER? 
;BR IF YES AND DO NEXT ONE 
: TEST IS DONE, DID WE EVER FIND A 
sRECOGNIZED DEVICE? 
sBR IF YES 
;ERROR, NO ADREDD AND ADRECD FOR ANY 
; IBM DEVICE NUMBER 


sADDR OF ERROR MSG 
; TERMINATE TEST 


PARITY ASSIGNMENT SUBROUTINE 


CALLED AS FOLLOWS: 
JSR R5,PTYGEN 


SEQ 0048 


—_——__ 
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nvr 
DUFARAY | 


UESWh—OoO 


kd ed ed td od 8g = 8 
Ww 
AOUSWN—O OO 


— 
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Ww 
N 
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0125035 
01 


000400 
000400 


011744 
011746 
000001 
011730 
000001 
011752 


011752 
000001 


ee 


011744 


PTY4: 
PTYS: 


SAVDEV: 


10$: 
20$: 


DONTSV: 


30$: 





SS ee eee ——_—_—— - 
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SPW ADDRESSING 


REGISTERS R2, R35, R4& ARE DISTROYED BY THIS SUBROUTINE 


-WORD ADDR 
RETURN HERE 
: MOV (R5)+,R3 
MOV (R3),R4 
CLR R2 
ASLB R4 
BVC PTY3 
C R2 
ASLB R4 

TY2 
TST R2 
BM! 


PTY4 
BIS #400, (R3) 
BR PTY5 
BIC + eehoceen 


TST RECORD 
BNE 20$ 
TST FRSTD 
BNE 1 


BIS #1,FRSTD 
MOVB DEV, FRSTDV 
MOV #1 ,DEVFND 
INC _* 


TST DEVCT 
B 30$ 
BIS a4 ae 


:GET 1 y ~— 

:GET THE DAT 

4 oes THE PARTIY Sw 
nes A BIT 


;BR IF ONES 

sOTHERWISE FLIP THE PARITY Sw 
;TWO BITS GET CHECKED AT ONCE 
:IF R4 = 0 WE'D BE DONE 

:DID THE SWITCH END UP SET? 


:BR IF NO 

+ 4 THE BIT IN THE TARGET DATA 
“CLEAR THE BIT IN THE TARGET DATA 
;RE TURN 


E WE RECORDING DEVICES FOUND? 
IF NO AND EXIT 
yr VERY FIRST DEV RECOGNIZED? 


SET FIRST DEV FOUND SW 
;SAVE FIRST DEVICE FOUND 
sSET SWITCH = DEVICE FOUND 
=COUNT THE DEV 


sHAVE WE FOUND ANY DEV YET? 
;BR IF NO 
3; TURN OFF DEV RECORDING 


Re eee ee em mere 


sADDRESS OF DATA TO WHICH PARITY WILL BE 
ASSIGNED 


SEQ 0049 


re ee me —™ - 


L 4 
CZDXJBO DX11-8 ADDRESSING TEST MACY11 S0A(1052) 24-MAR=80 09:45 PAGE 51 





CZDXJB.P11 24=MAR=80 09:31 E 3.0.4  TST4 DST ACCESS TEST SEQ 0050 
$159 .SBTTL MODULE 3.0.4 TST4 DST ACCESS TEST 
2178 ; 
3179 ; MODULE 3.0.4 DEVICE STATUS TABLE (DST) ACCESS TEST 
2181 : THIS TEST CHECKS THE ABILITY TO ACCESS ALL BYTES OF THE 
2182 ; DST IN ALL AREAS OF MEMORY. THE OBJECTIVE IS TO CHECK LOADING 
2183 : OF THE DXBA FROM THE SPW DST BASE, AND COMMAND (CUCR) 
2185 : A VALID IM DEVICE FROM TST3 IS CHECKED. THEN A BASE ADDR 
2186 : IS GENERATED FOR THE DST. EACH BYTE OF THE DST IS THEN LOADED 
3187 : WITH ITS OFFSET FROM THE DST BASE. 
2189 : A SPw ENTRY FOR THE VALID IBM DEVICE IS GENERATED WITH AP- 
2190 : PROPRIATE DST BASE AND ZERO IMMEDIATE STATUS TO ASSURE A DST 
2191 : ACCESS. AN ISS SEQUENCE IS DONE WITH THE VALID DEV AND 
2192 : EVERY POSSIBLE IBM COMMAND THEREBY ACCESSING EVERY LOCATION 
2193 : IN THE DST. AFTER THE ISS, THE STATUS WILL EQUAL THE COMMAND 
2194 : OR AND ERROR IS FLAGGED. 
2195 ; 
si99 ; 
2198 007636 004537 006530 TST4: JSR RS,INIT s INITIALIZE THE SOF TWARE 
2199 007642 004737 006560 JSR PC. DXRES : INITIALIZE THE HARDWARE 
2200 007646 005737 011762 TST DEVFND =DO WE HAVE A DEVICE? 
2201 007652 001006 BNE 10$ :BR IF YES 
2202 007654 004537 005134 JSR RS.PRINT :TEST 3 MUST BE RUN SUCCESSFULLY FIRST 
2203 007660 012215 .WORD  T4MSG :TO FIND AND IBM DEVICE # 
2204 007662 000000 .WORD 0 :AND ASSURE GOOD SPW ACCESS CAPABILITY 
2205 007664 000137 010274 JMP END4 “ABORT TEST 
2206 007670 005037 011730 10$: CLR DEV :CLEAN UP CURRENT DEV NO. 
2207 007674 113737 011750 011730 MOVB FRSTDV.DEV :GET THE VALID DEV 
2208 007702 004537 007514 JSR RS. PTYGEN * ASSIGN PARITY TO IT 
2209 007706 011730 ; DEV 
2210 007710 004537 010300 JSR R5 ,BUF AD :GET A BUFFER OF 256 BYTES 
2211 007714 100400 -WORD 100400 
2212 007716 012737 000400 011712 MOV #400, BUF SZE :SET BUFFER SIZE 
2213 007724 004737 006510 JSR PC ,BUFCLR :CLEAR THE BUFFER 
2214 007730 005000 LOOP4: CLR RO :START WITH CMD = 
2215 007732 013701 011710 MOV BUFBAS ,R1 :GET THE DST BASE 
2216 007736 110021 10$:  MOVB RO. (R154 :SET CMD IN DST 
2217 007740 005200 INC “NEXT CMD 
2218 007742 022700 000377 CMP #255. .RO “ARE ALL STATUS = TO CMD? 
2219 007746 103373 BHIS  10$ :DO 256 BYTES 
2220 007750 005000 CLR R 
2221 007752 013700 011730 MOV DEV,RO :GET DEVICE 
2222 007756 042700 177400 BIC #177400,RO = STRIP THE PARITY BIT 
2223 007762 006300 ASL RO :MAKE IT A WORD OFFSET 
2224 007764 017701 001552 MOV @DXOSA,R1 :GET THE SPW BASE 
2225 007770 042701 001777 BIC #1777,R1 :CLEAN IT UP 
2226 007774 050100 BIS R1,RO -ADD DEV TO OFFSET 
2227 007776 005737 011652 TST KT 7MM IN USE? 
2228 010002 001412 BEQ 15$ :BR IF NO 
2229 010004 013701 011716 MOV EACUR,R1 “GET EXT ADDR BITS 
2230 010010 000301 SWAB CéRRT =POSITION FOR USE IN PAR 
2231 010012 006201 ASR R1 
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010272 
010274 


010137 
04 


001352 


011732 
010752 


006 
011732 
011732 


006510 
010300 


011722 


001410 
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001340 


001326 
001320 


15$: 


5$: 
7$: 


10$: 


20$: 


ENDS: 


4 
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TST4 DST ACCESS 


R1 

R1, (RO) 
CMD 

R5 ,PTYGEN 
CMD 


EACUR ,@DXCSA 
DEV. @DXCAA 


MOA 
#HLDO!SELO, @DXMOA 


#ADRO, @DXMOA 
DEV, aDXMOA 
CMD , @DXMOA 
#CMDO ,@DXMOA 
CMD , @DXMOA 
#CMDO , ADXMOA 
coe 


@DXOSA 

10$ 

7$ 

n - @DXOSA 
>. 

ERR6 
#SRVO,aDXMOA 


#SRVO ,@DXMOA 
PC ,DXRES 


TES 


sUSE PARS TO GET TO SPW TABLE 
;SET SPW ADDR TO USE PAR5 


;SET PHY ches BASE 
oT STATUS = 0 
T UP SPW 


: START WITH CMD = 0 
T COMMAND PARITY 


;SET UP EXT ADDR BITS 

sSET DEVICE TO CUAR 

sPUT ree ADDR ON BUS OUT 
;SELECT & HOLD OUT 


;DROP ADDR OUT 
:DROP DEV FROM BUS 
TO BUS 


:CLR CMD FROM BUS 

:DROP COMMAND OUT 

:IS i A SENSE COMMAND? 

: STATUS FORCED TO ZERO ON SENSE CMD 
IF GOOD 


REPORT ERROR 

:IS STATUS EQUAL DEVICE? 
:BR IF YS 

ERROR - DST ACCESS 
MESSAGE ADDR 
;RELIEVE STATUS 

4a THE DX 

Y NEXT COMMAND 

‘DONE IF BACK TO ZERO 
BR — 
aeet N 


‘3 
é 
3 


; E 0°S? 

;-BR_IF YES, THE DX DOES NOT DO A 

DST aie. IF SPW ENTRY IS ALL ZEROS 
;DO NEXT BUFFER 

:END OF TEST 4 


a eee ————— —- 


SEQ 0051 
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01 
010310 
010314 
01 
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06000 

162700 
040002 
010237 


011716 


016000 
100000 


000001 


011710 
011722 


011652 
000006 
172354 
172354 
177700 
140000 


000001 
011710 
011714 


011710 
77 


00007 


011710 
011710 
177572 


011710 
011722 


ee eee ee ee ee ee 
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MODULE 


BASE ADDRESS GENERATOR 


2 
: 


10$: 


ENDB: 


NEXTB: 


-SBTTL _BASE ADDRESS GENERATOR MODULE 
MODULE 3.2 BASE ADDRESS GENERATOR 


THIS MODULE SETS UP THE ST@RTING ADDRESS FOR DX BUFFERS 
AND HAS RESPONSIBILITY FOR ESTABLISHING oes D ADDR 
ae BUFFER BASE, BUFFER SIZE, AND HAS CONTROL OF 

THE MEMORY MGT. REGISTERS. KIPAR6 IS ALWAYS USED 
TO ACCESS THE DXBUFFERS IF MEM MGT. IS ENABLED. 


THIS MODULE IS CALLED AS FOLLOWS: 

JSR R5 , BUF AD 

.WORD PARM 

RETURN HERE WITH R1=0 + ca BUFFER ALLOCATED 
1 MEANS NO MEMORY LEFT 


R1= 
PARM IS DEFINED AS FOLLOWS: 
BIT 15=1 INITIALIZE TO FIRST ike LOCATION 


BIT 15=0 GET NEXT BUFFER LOCAT 
BITS 14:0 BASE ADDR OF BUFFER MUST BE DIVISABLE BY 
THIS NUMBER 

MOV (R5)+,RO :GET THE PASSED PARAMETER 

CLR R1 sRESET ‘OUT OF MEMORY’* INDICATOR 
TST RO + CHECK FOR INITIALIZE SW 

BPL NEXTB CH IF NOT TO INITIALIZE 

CLR EACUR :START INIT PROCESS BY CLEARING 

; THE EA BITS 


MOV #ENDALL ,R2 
BIC #100000 ,RO 


:GET VIRTUAL END OF PROGRAM ADDR 


ADD RO,R2 “OFFSET ABO 
SUB #1 ,RO sDEVELOP A MASK 
BIC RO.R2 O MAKE BASE DIVISABLE BY PROPER AMT. 


st 
MOV R2,BUFBAS :SAVE VIRTUAL BUFFER 


MOV R2,BFBAPH 





:AT THIS POINT. 
TST KT 21S KT IN USE? 
BEQ ENDB sBRANCH IF NO TO END OF MODULE 
V #6,R3 ; INIT LOOP COUNTER 
CLR @4K IPAR6 >START TO INITIALIZE KIPAR6 
ASR R2 ; SHIFT ADDRESS > hd 6 PLACES 
SOB R3,1 :TO ALLIGN W PAR 
MOV 2 >SET UP PAR6 TO REFERENCE FIRST BUFFER 
BIC :CLEAR UP VIRTUAL BUFFER ADDR 
BIS ;BUF FER ACCESS IS ALWAYS THRU PAR6 
MOV > TURN ON MM 
= :FIND TOP OF CURRENT BUFFER 
MOV ;SAVE VIRT END OF BUFFER 
BR :DONE WITH INITIALIZATION 


COME HERE IF NEXT BUFFER ADDR IS WANTED 


ADD RO, BUFBAS :INCR TO NEXT BUFFER SPACE 

BIC #77 ,BUF BAS [CLEAR POSSIBLE LOW ORDER BITS 
RO. BFBAPH :STEP PHYSICAL ADDR 

BIC 97? BFBAPH :CLEAR POSSIBLE LOW ORDER BITS 


BASE 
:SAVE PHYSICAL BUFFER BASE, SAME AS VIRT 


SEQ 0052 


CZDXJBO_ DX11-B ADDRESS 1 
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011716 
011706 
000004 
011722 


011716 
011644 
011722 
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011704 


011646 


000654 


016000 
000624 


011714 
011644 
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MODULE 


;BR_IF NO CAR 
#10,EACUR STEP EXTENDED "ADDR BITS 

EACUR ,EABITS ;HAVE THE EXT ADR BITS GONE TOO HIGH? 
30$ sBR IF YES TO SET ALL DONE SW AND EXIT 
KT :IS oe MNG IN USE? 


20$ IF NO 
+ aa eat :WAS THERE A seo TO ACCESS NEXT PAR? 


7BR IF NO CAR 
#200,@MKIPAR6 = ;TAKE A 4K STEP 


@YKIPARG,EASIZE ;CHECK FOR TOO HIGH 

5$ BRANCH IF OK 

R1 ;SET_ THE “ALL DONE'’ SWITCH 
ENDB1 sEXIT 

#177700,BUFBAS ;START BUFFER BASE _ 


#140000,BUFBAS ACCESS THROUGH PAR 
BUFBAS ,RS ;GET THE BASE ADDR 


:CALCULATE TOP OF BUFFER 
#26000, R3 [DIT IT CARRY ACROSS A PAR BOUNDAR 
7BR IS YES. GO BACK AND GET A BETTER ADDR 
Ne SOUFPAK :SAVE TOP OF BUFFER ADDR 
BFBAPH ,R3 :GET PHYSICAL BUF BASE 
RO, :ADD BUFFER SIZE TO GET BUF TOP 
EACUR.EABITS | :ARE WE IN THE TOP PHYSICAL BANK? 
12$ :BR IF NO 
R3, PHYMAX :ARE WE OVER THE TOP OF MEM? 
30$ :BR IF YES, SET DONE SW 
R3 AG :WAS THERE A CARRY OUT OF TOP BANK? 
0$ :BR IF YES, WE MUST BE DONE 
BFBAPH ,R3 :GET PHYSICAL BUFFER BASE 
RO,R3 :FIND TOP OF PHY BUFFER 
NEXTB “BR IF CARRY OVER 32k BND 
:AND GO BACK AND GET A SOUFFER WHICH DOESN'T 
:STRADDLE A 32K BOUNDARY 
EACUR :ARE WE IN THE FIRST BANK? 
£ =BR IF NO 
R3,MSIZE sARE WE IN THE LOADER AREA? 
¢ “BR IF OK 
BF BAPH , MMAX ;1S BUFFER ABOVE LOADERS? 
$ “BRANCH IF WE'RE OK 
NEXTB :GO BACK AND GET A BETTER BUFFER ADDR 
#SPwW, @DXOSA “SET UP SPW ADDR 
SPWMVD “CLEAR SPW BASE ADDR MOVED SWITCH 
RS #SPw :1S TOP OF BUFFER IN SPW 


;BR 
the o#SPW+2000° :1S BUFFER BASE IN TT? 


#SPW+2000, aDxOSA’ sMOV THE SPW 
SPWMVD ;SET SPw ADDR MOVED TO ALTERNATE SWITCH 


ENDB1 :GO TO END OF MODULE 
BUFBAS ,BUFMAX  ;START TO GET BUFMAXIMUM 
RO , BUF MAX sADD IN BUFFER SIZE 

BUF MAX ,MSIZE 7 SEE IF WE'RE OUT OF MEMORY 
ENDB1 IF OK 

R1 :SET OUT OF MEMORY SWITCH 


R5 :RETURN FROM MODULE 


Eee ee ee eee 
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CZ7DxJB.P11 80 09:31 REPORT ERROR 
2389 .SBTTL MODULE 3.3 REPORT ERRORS 
2390 ; MODULE 3.3 ERROR REPORTING 
$39 ; CALLED AS FOLLOWS: 
2394 : JSR R5.ERRR 
2395 : WORD 
2396 ; . WORD 
2397 : RETURN (UNLESS LOCK ON ERROR FUNCTION OVERRIDES RETURN) 
2398 ; X EQUALS ERROR IDENTIFICATION NUMBER 
2399 : Y EQUALS ADDR OF UNIQUE ERROR MESSAGE 
2401 : THIS MODULE FORMATS AND PRINTS ERROR MESSAGES AND HANDLES 
2402 : ERROR OPTIONS SUCH AS INHIBIT ERROR MESSAGES. SHORT ERROR 
2403 : REPORT, SCOPE LOOP, HALT ON ERROR, : 
S408 : 
2406 010752 032777 100000 170160 ERRR: BIT #SW15,aSWR :HALT ON ERROR ON? 
2407 010760 001401 BEQ SE “BR IF NO 
2408 010762 000000 HALT :SW15 ON AND ERROR OCCURRED. 
2410 010764 013737 011666 011676 SS: MOV CTESTN,ERR :SET ERROR DETECTED SW 
2411 010772 005046 CLR -(SP) -:PUT NEW PS ON STACK 
2412 010774 012746 011002 MOV #64$,-(SP) ::PUT NEW PC ON STACK 
2413 011000 000002 RT] >:POP NEW PC AND PS 
2414 011002 64$: 
2415 011002 005737 011700 TST LOCK :ARE WE LOCKED ON ERROR? 
2416 011006 001407 BEQ 10$ :BR IF NO 
2417 011010 032777 040000 170122 BIT #SW14,aSWR : SCOPE LOOP SW ON? 
2418 011016 001413 BEQ 15$ 
2419 011020 013705 011702 MOV LOCKAD.R5 “GET THE LOOP ADDR 
2420 011024 205 RTS R5 -GO TO IT 
2421 011026 032777 040000 170104 10$: BIT #SW14.aSWR ;SCOPE LOOP ON? 
2422 0110 1404 BEQ 15$ IF NO 
2423 011036 013737 011666 011700 MOV CTESTN, LOCK “SET LOCKED ON ERR SW 
2424 011044 02 BR 20$ 
2425 011046 037 011700 15$: CLR LOCK : TURN OF LOCKED Sw 
2426 011052 010537 011734 20$: MOV RS, ERRPC =SAVE ERR PC 
2427 011056 012537 011736 MOV (R5) +, ERRID =SAVE ERROR ID 
2428 011062 012537 011740 MOV (R5)+,ERRMS :SAVE ERROR MESSAGE ADDR 
2429 011066 032777 02 170044 BIT #SW13.aSWR > INHIBIT PRINT ON? 
2430 011074 00140 BEQ 25$ *BR IF NO 
2431 011076 000137 011520 JMP 97$ ; TERMINATE MODULE 
2432 011102 004537 105134 25$: JSR R5,PRINT :PRINT ERRPC 
2433 011106 012762 .WORD  ERPC -ADDR OF MESSAGE 
2434 011110 -WORD 0 “NO SPECIAL PRINT CONTROLS 
2435 011112 162737 000004 011734 SUB #4, ERRPC “BACKUP ADDR TO CORRECT VALUE 
2436 011120 004537 005134 JSR R5PRINT :PRINT THE PC NUMBER ITSSELF 
2437 011124 011734 WORD  ERRPC 
2438 011126 100001 100 :NO CRLF, CONVERT TO ASCII 
2439 011130 004537 005134 JSR R5PRINT =PRINT ERROR NUMBER ON SAME LINE 
2440 011134 012775 .WORD ERNO 
2441 011136 000001 WORD : INHIBIT CRLF 
2442 011140 004537 005134 JSR RS. PRINT “PRINT THE OCT 
2443 011144 011736 -WORD ERR] 
2444 011146 100001 -WORD 10 





ee 


SEQ 0054 


=—- l 
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2445 011150 013737 
2446 011156 0046537 
2447 011162 000000 
2448 011164 000000 
2449 011166 032777 
2450 011174 001145 
2451 011176 004537 
2452 011202 013011 
2453 011204 000000 
2454 011206 004537 
2455 011212 011666 
2456 011214 100001 
2457 011216 022737 
2458 011224 001531 
2459 011226 004557 
2460 011232 013024 
2461 011234 000000 
2462 011236 004537 
2463 011242 011719 
2464 011244 100001 
2465 011246 005737 
2466 011252 001431 
2467 011254 004537 
2468 011260 013057 
2469 011262 000000 
2470 011264 004537 
2471 011270 011722 
2472 011272 100001 
24735 011274 004537 
2474 0113500 013104 
2475 011302 
2476 011304 013737 
2477 011312 006237 
2478 011316 006237 
2479 011322 006237 
2480 011326 004537 
2481 011332 011742 
2482 011334 100001 
2483 011336 023727 
2484 011344 1010 
2485 011346 537 
2486 0113552 013125 
2487 011354 
2488 011356 537 
2489 011362 011720 
2490 011364 
2491 011366 023727 
2492 011374 001004 
2493 011376 113737 
2494 011404 000416 
2495 011406 023727 
2496 011414 001035 
2497 011416 122737 
2498 011424 001003 
2499 011426 005037 
2500 011432 


011652 
005134 


011760 


eee _ 
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011162 


167744 


011736 


011742 


000003 


000004 
011760 
000006 
011732 


30$: 


90$: 


93$: 


94$: 


—— 


0 
#SW12,aSWR 
RS,PRINT 
ERTN 
RS,PRINT 
CTESTN 
100001 
#5,ERRID 
RS.PRINT 
ERADR 


100001 
R5 PRINT 
EABIT 
EACUR,EAERR 
EAERR 
EAERR 
R5, PRINT 
100001 
ERRID #3 
93$ 
R5,PRINT 
DATAA 
R5,PRINT 
DATAD 


100001 
ERRID,#4 
4$ 


DEV.EXP 
96$ 
ERRID,#6 
95 


;GET MESSAGE POINTER 
;PRINT THE UNIQUE MESSAGE 
sFILLED FROM TWO LINES UP 
sNO SPECIAL CONTROLS 

; SHORT ERROR 


sPRINT THE OCTAL TEST NO. 


31S IT ERROR #5? 
;BR IF YES, REST OF STUFF IS MEANINGLESS 
;PRINT VIRT ADDR 


;PRINT VIRT ADDR OCTAL 


:I1S MEM MGT IN USE? 
;BR IF NO WE'RE DONE 
;PRINT PHYSICAL ADDR 


sPRINT PHYSICAL ADDR OCTAL 
;PRINT EA BITS 


;GET THE EA BITS 
;POSITION BITS 
; TO BITS 1:0 


sPRINT THE OCTAL EA BITS 


:;1S IT ERROR NO. 3? 
BR NO 
;PRINT DATA ADDRESS ASCII 


;PRINT DATA ADDR OCT 


1S IT ERROR #4? 

;BR IF NO 

;GET DEV # 

:1S IT ERROR #6? 

;BR IF NO 

s;WAS IT A SENSE CMD? 

;BR IF 

sEXPECTED STATUS IS ZERO FOR SENSE 


SEQ 0055 


- 
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2501 011434 113737 011732 
2502 011442 ge 000074 
2505 011450 004557 005134 
2504 011454 013250 
2505 011456 
2506 011460 004537 005134 
2507 011464 011756 
2508 011466 100001 
2509 011470 004537 005134 
2510 011474 013262 
2511 011476 000001 
2512 011500 004537 005134 
2513 0115046 011760 
2514 011506 100001 
2515 011510 004537 005134 
2516 011514 013300 
2517 011516 
2518 011520 022737 001566 
2519 011526 001 
2520 011530 
2521 
2522 011532 000205 
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000042 


ee ee eee -——— 


2 
"athe tr. E — 57 


98$: 
96$: 


95$: 


97$: 


99$: 


REPOR 


CMD , EXP 
@DXOSA,ACTU 
R5 PRINT 
ACTUMS 


0 
R5,PRINT 
ACTU 
100001 
R5,PRINT 
EXPMS 

R5 ,PRINT 
EXP 
100001 
o 
#SENDAD ,a#42 
99$ 


R5 


;GET EXPECTED CMD 
:GET ACTUAL STATUS 
;PRINT ACTUAL MESSAGE 


;PRINT STATUS OCTAL 
sPRINT EXPECTED STATUS 
sPRINT EXPECTED OCTAL 
;SPACE THE PAPER 


sUNDER ACT? 

;BR IF NO 

;HALT ON ACT ERROR 
;RETURN FROM MODULE 


SEQ 0056 





VNWNWAYT  WWAVIMIMIMII IWMI 
RNS LVSKLMLSTEES 


~S 
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eleleleleleleoReelelelelelelelelelelele)e) 
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MODULE 3.3 


REPORT ERRORS 


DX ACCESS TABLES 


-WORD OQ ;DEVICE STATUS REG ADDR. 

-WORD OQ ; COMMAND AND ADDR REG ADDR. 
-WORD 0 ;CONTROL UNIT STATUS REG ADDR 
-WORD QO ;OFFSET AND STATUS REG ADDR. 
-WORD 0Q ;BUS ADDRESS REG ADDR 

-WORD 0 ;BYTE COUNT REG ADDR 

-WORD 0 ;MAINTENANCE OUT REG ADDR. 
-WORD Q sMAINTENANCE IN REG ADDR 

-WORD 0 ;CONTROL BITS REG ADDR 

«WORD Q ;NPR DATA REG ADDR 

-WORD 0 sEXTRA SIGNALS REG ADDR 

-WORD 0 ;MAINTENANCE OUT BUFFERED REG ADDR 
-WORD QO sEXTRA EXTRA SIGNALS REG ADDR. 
REGS TO BE OUTPUT TO Dx 

-WORD Q ;DEVICE STATUS REG OUT 

-WORD 0 ; COMMAND AND ADDR REG OUT 
-WORD 0Q ; CONTROL UNIT STATUS REG OUT 
-WORD 0 ;OFFSET AND STATUS REG OUT 
-WORD QO ;BUS ADDR REG. OUT 

. WORD : ;MAINT OUT REG ADDR 


oem ee ee ee ee ee a me CC —— «= 


SEQ 0057 


4 


nnn 
Loe Bae Boge Boe ee oe Bae Be | MMMM MoM MMOS oe rs es ee 


Pa PRs CR Hew CO es Coes Oe 


———— <a we ee ee —_ —_— 
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CZDXJB.P11 24-MAR-80 09:31 E 3.3 REPORT ERRORS SEQ 0058 
2550 ; 
2551 ; 
2552 2 DEFAULT PARAMETER TABLE 
2553 011604 DPAR: 
2554 011604 000001 DTESTN: .WORD 1 ; STARTING TEST NUMBER 
2555 011606 176200 DUBA: .wORD 176200 :DEFAULT UNIBUS BASE ADDR 
2556 011610 000300 DVECT: .WORD 300 ;DEFAULT VECTOR ADDR 
S228 011612 000004 DPRIOR: .WORD 4 DEFAULT DX PRIORITY LEVEL 


SELATAN a 


eee 
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2559 


011614 
011614 


011632 


mee ee eee 








ee 


" 5 
26-800 09: 45 Nonee 60 


So oe 


REPORT E 


INPUT PARAMETER LIMITS TABLE 


sLOWEST POSSIBLE TEST NUMBER 
sHIGHEST POSSIBLE TEST NUMBER 
;LOWEST POSSIBLE UNIBUS ADDRESS 
;HIGHEST POSSIBLE UNIBUS ADDRESS 
sLOWEST POSSIBLE DX VECTOR ADDRESS 
sHIGHEST POSSIBLE DX VECTOR ADDRESS 
;LOWEST POSSIBLE FOR LEVEL 

>HIGHEST POSSIBLE FOR LEVEL 


mm ws ee ws Se eS —™ 


SEQ 0059 


— 


TT TL EEE KL mm me 


SS Ge ee ee ee ee ee ee ee ee ee ee eee eee SEE es 
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CZD0XJB.P11 24-MAR-80 09:31 MODULE 3.3 REPORT ORS SEQ 0060 
25735 ; 
2574 ; 
$252 ; ACTIVE PARAMETER TABLE 
2577 ; THIS TABLE CONTAINS CONFIGURATION PARAMETER CURRENTLY 
2578 ; IN USE. 
2579 011634 
2580 011634 000000 ATESTN: .WORD 0 > STARTING TEST NO. 
2581 011636 000000 AUBA WORD 0 ;DX UNIBUS BASE ADDR. 
25 011640 000000 AVECT WORD 0 >DX VECTOR ADDRESS 
2583 011642 000000 APRIOR: .WORD 0 >DX PRIORITY LEVEL 
25 011644 000000 MSIZE WORD 0 :ADDR OF LAST WORD OF ose” NOT INCLUDING LOADERS, KT OFF 
2585 011646 000000 MMAX WORD 0 sLAST WORD OF MEM, KT OFF 
25 011650 000000 EASIZE: .WORD Q ;LOWEST INVALID SETTING OF PAR 
2587 011652 000000 KT: WORD 0 :=0 NO KT IN USE =1 KT IN USE 
2588 011654 000000 FIRSTP: .WORD 0Q :0 IF FIRST PASS, 1 IF NOT FIRST PASS 
2589 011656 177564 TPS: WORD 177564 TTY PRINTER STATUS REG ADDR 
2590 011660 177566 TPB: WORD 177566 ;TTY PRINTER BUFFER REG ADDR 
2591 011662 177569 TKS: WORD 177560 ;TTY KEYBOARD STATUS REG ADDR 
2592 011664 177562 TDB: .WORD 177562 :TTY KEYBOARD BUFFER. 
25935 011666 000000 CTESTN: .WORD 0 :CURRENT TEST NUMBER 
2594 011670 000000 PARMV: .WORD QO :0 IF PARMS NOT VALID, 1 IF THEY ARE VALID 
2595 011672 000001 COUNT: .WORD 1 ; ITERATION COUNT CONSTANT 
2596 011674 000000 CNT: -WORD 0 ; ITERATION VARIABLE 
2597 011676 000000 ERR: -WORD Q ;1F ERROR DETECTED, CONTAINS T 
2598 000000 LOCK -WORD 0 ; SW=TN IF LOOP SW 14 ERR DETECTED 
2599 011702 000000 LOCKAD: .WORD 90 ;LOCK ON ERROR ADDR 
011704 000000 EABITS: .WORD QO ;HIGHEST VALID SETTING OF ADDR 17 16 
2601 011706 000000 PHYMAX: .WORD 0 sLOWEST INVALID PHYSICAL ADDR, LOW 16 BITS 
2602 011710 000000 BUFBAS: .WORD 0 ;START OF CURRENT WORKING BUFFER, VIRTUAL 
2603 011712 000000 BUFSZE: .WORD 0 ;SIZE OF CURRENT BUFFER IN OCT BYTES 
714 000000 BUFMAX: .WORD 0 sMAX VIRTUAL ADDR FOR THIS KT SETTING 
2605 011716 000000 EACUR: .WORD 0 ;CURRENT SETTING OF EA BITS 
011720 000000 DATAD: .WORD 0 ; CURRENT DATA ADDR 
2607 011722 000000 BFBAPH: .WORD 0 CURRENT PHYSICAL BUFFER BASE ADDR 
011724 000000 BFADPH: .WORD 0 ;CURRENT PHYSICAL DATA ADDR 
2609 011726 000000 SPWPHY: .WORD 0 sPHYSICAL ADDR OF SPW START 
0 000000 DEV -WORD 0 ;CURRENT IBM DEVICE NO. 
2611 011732 000400 -WORD 400 ;CURRENT IBM COMMAND WITH PARITY BIT 
2612 011734 000000 ERRPC: .WORD 0 PC WHERE ERROR WAS DETECTED 
2615 011736 000000 ERRID WORD 0Q sERROR NUMBER 
2614 011740 000000 ERRMS: .WORD 0 ;ADDR OF UNIQUE ERROR MESSAGE 
2615 011742 000000 EAERR WORD Q :EABITS ON ERROR 
2616 011744 000000 RECORD: .WORD Q :SWITCH TO CONTROL DEV ¥ Simei 
2617 011746 000000 FRSTD WORD 0 sFIRST DEVICE RECOGNIZED 
2618 011750 000000 FRSTDV: .WORD 0Q :FIRST DEVICE RECOGNIZED NUMBER 
2619 011752 000000 DEVCT WORD 0 sFIRST DEVICE GROUP COUNT 
2620 011754 000000 DEVMSS: .WORD 0 :DEVICE MESSAGE PRINTED Sw 
2621 011756 000000 ACTU WORD Q ;ACTUAL DATA 
2622 011760 000000 EXP WORD 0 sEXPECTED DATA 
2623 011762 000000 DEVFND: .WORD 0 = 1_IF DEVICE EVER RECOGNIZED 
2624 011 000000 SPWMVD: .WORD 0 = 1 IF SPW TAPLE IN ALTERNATE LOCATION 
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012026 
Ri Snoe 


012427 


ERR4: 


ERRS: 


ERR6: 


T4MSG: 


HEADER: 


-ASCIZ 


ASCIZ 


ASCII 


ASCII 


ASCII 


ASCII 


ee ee eee eo 


5 
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MODULE 3.3 ORS 


REPORT E 


BIN 
/FAST NPR DATA ERROR/ 


/NO DX INTERRUPT/ 


/DX ADDRESSING ERROR, DATA XFER/ 


/SPW ACCESS, ADDR ERROR/ 


/NO IBM DEV ADR RECOGNIZED. CHECK A20 MODULE/ 


/DST ACCESS ERROR/ 


/TST3 MUST BE RUN FIRST FOR TST 4 TO WORK/ 


*CZDXJBO DX11B MEMORY ADDRESSING TEST'<15><12> 


"TYPE: <D>, DEFAULT PARAMETERS'<15><12> 


; <P>, PREVIOUS PARAMETERS'<15> 


. <S>, SELECT PARAMETERS '<15><12> 





SEQ 0061 


— -o—--—e — e  e - ° 





ee ee ae | 
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CZDXJB.P11 24-MAR-80 09:31 MODULE 3.3 REPORT ERRORS SEQ 0062 


2684 
2685 012460 ASCIZ ° <N>, START AT THIS TEST NO.'<15><12> 


2691 012517 INVM: .ASCIZ ‘INVALID ENTRY' 

26 

2694 012535 INVPRM: .ASCIZ ‘NEED MORE PARMS' 
2697 012555 PROMPT: .ASCIZ 'D.P.S,N? ' 

2698 2562 

2699 012567 TESTN: .ASCIZ ‘STARTING TEST NO. ' 
fas, 012612 BASEA: .ASCIZ ‘BASE ADDRESS ° 

2706 012630 VECTA: .ASCIZ ‘VECTOR ADDRESS ° 


Bi Sees PRILV: .ASCIZ ‘DX PRIORITY LEVEL ° 


27153 012673 SETSW: .ASCIZ ‘SET SWITCHES ' 


7 
2716 012711 BELL: .ASCIZ <207> ‘END PASS’ 
2718 012725 BADP: .ASCIZ ‘INPUT PARAMETER OUTSIDE LIMITS" 


2725 012760 
2724 012762 ERPC: .ASCIZ ‘ERROR PC: ' 
2725 012770 
2726 012775 ERNO: .ASCIZ ‘ ERR NO.: ° 
2727 3002 


ha 013011 ERTN:  .ASCIZ ‘TEST NO.: ° 
2731 013024 ERADR: .ASCIZ ‘VIRT ADDR OF BUFFER BASE: ' 


3057 ERADPH: .ASCIZ ‘PHY ADDR OF BUFFER: ° 





— Ss ) 1s 3 
RILESVRSUVRSA 


Se 


OR Pe pe ere per pe ee pe te pe 
~ 


OQOQoooooooooco°o00o 
at So ot ot 


013210 


014050 


24 


EABIT: 


DATAA: 


DE VMS : 


DEVCMS: 


ACTUMS: 


EXPMS: 


CRLF 1: 
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eASCIZ 


-ASCIZ 


ASCIZ 


eASCIZ 


ASCIZ 
-ASCIZ 


ASCIZ 


MACY11 30A(1052) 
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3 REPORT ORS 


*VIRT ADDR OF ACCESS ERROR: 


"1ST IBM DEV RCGNZD. 


"SIZE OF 1ST DEV GROUP: 


"ACTUAL: 
* EXPECTED: 


/ /<15><12> 


OCTAL: 


BIN 


; INBUF MUST BE ON AN EVEN WORD BOUNDARY 


12 


POPIPINPINPINPINININININININININMINININININ NY 


eceawereqeaeneeeees 


sKEYBOARD INPUT BUFFER 


sSTART OF STATIONARY SPW TABLE USED ONLY TO 
FIELD wet ly: ERRORS. 

: STATUS UNIT CHECK WITH NO DST 
K WITH NO DST 


WITH NO DST 
WITH NO DST 


WITH NO DST 


ACCESS 


ACCESS 


ae ee = 





5 
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2 
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BBSAS SAB sss sas saV sas sgg sag sgsVAsgyVssgyggysysyggyggysgys 


é 
2 
2 
2 
2 
2 
2 
é 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
M4 
2 
r4 
2 
2 
2 
é 
2 


wn 
“~ 
ae 
—4 
~ 
” 
2 


WITH NO DST 


WITH NO DST 
WITH NO DST 


WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 
WITH NO DST 


WITH NO DST 
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4404 
2903 014406 
2904 
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MMIMINININININNNNNNNINMINNNNNNINININININININININININININININININININININININININYNDNINYNNNNoNoNy 


REPORT 


™Nm 


5 
* ates” if: a 5 PACE 66 


sSTATUS OF UNIT 
:STATUS OF UNIT 
sSTATUS OF UNIT 
STATUS OF UNIT 
sSTATUS OF UNIT 
>STATUS OF UNIT 
sSTATUS OF UNIT 
:STATUS OF UNIT 
>STATUS OF UNIT 
;STATUS OF UNIT 
sSTATUS OF UNIT 
s STATUS OF UNIT 
>STATUS OF UNIT 
sSTATUS OF UNIT 
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2961 014572 000002 -WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
014574 000002 -WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 

2965 014576 000002 -WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
2964 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2965 014602 000002 -WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
2966 014604 000002 -WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2967 014606 000002 -WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
2968 014610 000002 -WORD 2 STATUS OF UNIT CHECK WITH NO DST ACCESS 
2969 014612 000002 -WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
014614 000002 WORD 2 >STATUS OF UNIT CHECK WITH NO DST ACCESS 

2971 014616 000002 WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
2972 000002 WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
000002 -WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 

2974 014624 000002 -WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
2975 01 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2976 014630 000002 WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
014632 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 

2978 014634 000002 WORD 2 >STATUS OF UNIT CHECK WITH NO DST ACCESS 
79 014636 000002 -WORD 2 >STATUS OF UNIT CHECK WITH NO DST ACCESS 
2980 014640 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2981 014642 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
000002 -WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 

2983 014646 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
014650 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 

2985 014652 000002 WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
014654 000002 -WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 

2987 0146 000002 -WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
0 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 

2989 014662 000002 WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
014664 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 

2991 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2992 014670 000002 WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
2993 014672 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
014674 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 

2995 014676 000002 WORD 2 :STATUS OF UNIT CHECK WITH NO DST ACCESS 
000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 

2997 014702 000002 WORD 2 :STATUS OF UNIT CHECK WITH NO DST ACCESS 
014704 000002 WORD 2 STATUS OF UNIT CHECK WITH NO DST ACCESS 

2999 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
014710 000002 WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 

3001 014712 000002 WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
3002 014714 000002 WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
3003 014716 000002 WORD 2 :STATUS OF UNIT CHECK WITH NO DST ACCESS 
014720 000002 WORD 2 :STATUS OF UNIT CHECK WITH NO DST ACCESS 

3005 014722 000002 WORD 2 STATUS OF UNIT CHECK WITH NO DST ACCESS 
014724 000002 WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 

3007 014726 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
4730 000002 WORD e ;STATUS OF UNIT CHECK WITH NO DST ACCESS 

3009 014732 000002 WORD 2 : STATUS OF UNIT CHECK WITH NO DST ACCESS 
3010 734 000002 WORD 2 STATUS OF UNIT CHECK WITH NO DST ACCESS 
3011 014736 000002 WORD ¢ :STATUS OF UNIT CHECK WITH NO DST ACCESS 
3012 014740 000002 WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
3013 014742 000002 WORD 2 STATUS OF UNIT CHECK WITH NO DST ACCESS 
3014 014744 000002 -WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3015 014746 000002 -WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
3016 014750 000002 -WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS 
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;STATUS OF UNIT CHECK WITH NO DST 
;STATUS OF UNIT CHECK WITH NO DST 
;STATUS OF UNIT CHECK WITH NO DST 
STATUS OF UNIT CHECK WITH NO DST 
;STATUS OF UNIT CHECK WITH NO DST 
:STATUS OF UNIT CHECK WITH NO DST 
STATUS OF UNIT CHECK WITH NC DST 
;STATUS OF UNIT CHECK WITH NO DST 
;STATUS OF UNIT CHECK WITH NO DST 
>STATUS OF UNIT CHECK WITH NO DST 
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011756 2502" 2507 26214 
013250 504. 2759" 
000 608 2086 2091 2244 2246 
011634 2579" 
011642 B14" 8%2* 870" 2583" 
011634 728 B11* = 829" B49" = B8S* 25804 
011636 Bide 830" 856* 901 25814 
011640 813* 83i= 863* 1835 1978 2582 
012723 1520 27184 
012612 963 27034 
012711 774 27168 
011724 1984* 1988 2009" 2608" 
011722 1843 1984 20782235 22732310 2332" 2333" 2354 «23622371 23782471 
= 000001 552m 
= 000001 540H = 552 
= 000002 5414 551 
= 000004 540# 550 
= 000010 539" = =—-549 
= 000020 5384 ©— 548 
= 000040 537#@ 547 
= 000100 536H = 546 
= 000200 5354 545 
= 000400 5344 544 
= 001000 5334 = 543 
= 000002 5514 
= 002000 532e 
= 004000 5314 
= 010000 530M 
= 020000 529" 
= 040000 5284 
= 100000 5278 
= 000004 550m 
= 000010 5494 
= 000020 5484 
= 5478 
= 000100 5464 
= 000200 5454 
= 000400 5444 
= 001000 543 
= 000014 559M 
010300 183218731976 = 2015. 2067, 2111S 2210 2269 = 2298 
011710 1855. 1909 1983. 2072) 2215. 9 2309% = 2319 = 2320" = 2322, 2330" = 2331* = 2340S 23478 
2348* 2349 2383 2463 26024 
006510 1840 1872 1909 1982 2014 2070 2110 2213 2268 
011714 2011 2324" = 2353" = 2383" = 2384" = 385 6044 
011712 1838* 1856 1910 1981%  2069* 2212* 26034 
766 850 857 871 886 14894 
104406 1766 
011732 30668 2093 = 2095 2238s 2240 2248 = 2250 2252 2257 2265* 2266) 24972501 
= 002000 6 1891 1892, 2094 = 2096 )=— 2249 2251 
011674 727* = 751% = 2596# 
011672 727595 
000015 467# 944 = 1625. :1635 
000200 4684 1596 1635 
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013300 1551 2516 27644 
011666 728* 731 748* 749 2410 2423 2455 25934 
013125 2486 27434 
011720 1983* 1999 ys" 2010* 2011 2489 26064 
177570 4744 659 712 : 
011730 2071* 2073 2074* 2075 2077* 2081 2082 2083 2092 2097 2107* 2108 2161 
2206* 2207* 2209 2221 2242 2243 2247 2493 26104 
013217 764 27544 
011752 755 767 2064* 2115 2163* 2169 26194 
011762 2162* 2200 26234 
013161 758 27484 
011754 725* 753 769* 26204 
001142 6594 712* 720* 
000174 6164 720 
= 000200 6024 1864 1941 2006 
007620 2105 21694 
11604 25534 
011612 814 832 991 25574 
177570 4734 658 711 
011604 811 829 958 25544 
1606 812 830 969 2555A 
011610 813 831 980 25564 
011544 1843* 1988* 25324 
011576 25464 
011546 1882* 25334 
160 25484 
011536 2082* 2242* 25298 
011570 25434 
011554 1950 2085 2087 25364 
011540 sb es 1864* 1866* 1887* 1941* 1942% 1943* 1944% 1985* 2006* 2008* 2079% 2241* 
011572 25444 
011534 900 25284 
011566 25424 
011560 1865* 1893* 1940*  2007* 25384 
011564 25404 
006366 1844 18814 1989 
011552 25354 
011550 1881* 1889* 1890* 1891* 1892* 2083* 2084* 2090* 2091* 2092 2093* 2094* 2095 
2096* 2102* 2103% 2243% 2244% 2265% 2246% 2247% 2248% 2249% 2250% 22518 2262 
2263* 25344 
011562 25394 
011600 1841* 1857 1867 1869* 1881 1986* 25474 
011556 25374 
Be teee hoy = 1949* 2078* 2097 2224 2254 2257 2374* 2380* 2502 25314 
006560 1831 19404 1953 1975 2065 2106 2199 2264 
013104 2474 27404 
011704 1365* 1383* 1384+ 1385* 1386 336 2356 26004 
011716 1842 1985 2079 2229 2241 2302* 2335%* 2336 2356 2367 2476 26054 
011742 2476%* 2477% 2478% 2479% 24681 26154 
011650 364" 1373% 1374% 2343 25864 
000030 5624 
016000 2304 30294 
010414 2313 2322k 
010750 2325 2346 2382 2386 23884 
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CZDXJB.P11 24-MAR=-80 09:37 CROSS REFERENCE TABLE =-= USER SYMBOLS SEQ 0071 
ENDPRM 002270 808 9084 
ENDTST 001410 7404 1877 2019 2122 2277 
ENDT1 006350 18734 
END1 001 777 7834 
ENDS 010274 2205 2272 2277h 
'EOP 00145 7534 
ERADPH 013057 2468 27 
ERADR 1302 2460 27314 
ERNO 012775 2440 2726 
ERPC 012762 2433 27264 

RR 011676 730* 1932 2410% 25974 
ERRID 011736 2427% 2643 2457 2483 2491 2495 26134 
ERRMS 011740 2428% 2465 26144 
ERRPC 011734 24.26% 2635% 2437 26124 
ERRR 010752 1859 1899 2002 2099 2118 2259 24064 
ERRVEC= 5554 709 710* 721* 1409 1410 1414% 14198 14318 14368 1445% 1455* 1456% 
ERR1 011 1861 26264 
ERR2 012012 1901 26304 
ERR3 012032 2004 26344 
ERR4 012071 2101 264 
ERRS 012120 2121 26444 
ERR6 012174 2261 26524 
ERTN 013011 2452 2729 
EXP 011760 2493% 2499% 2501% 2513 26224 

PMS 13262 2510 27614 
FIRSTP 011654 724* 806 907* 25884 
FRSTD 011746 2063* 2158 2160* 26174 
FRSTDV 011750 761 2161* 2207 26184 
GE TPRM 1600 726 8064 
GNS = *eeree 615 1759 1760 1761 1762 1764 1766 1767 1768 1769 
GO 001346 7284 752 
GO1 206 18424 1870 
GTSWR = 104405 17644 
HEADER 012266 822 26624 
HLDO = 6054 1889 1890 2090 2245 
HPRIOR 011632 1515 2572H 
HT : 11 4654 1594 1635 
HTESTIN 011616 749 1494 25664 

011622 1501 25684 
HVE C 011626 1508 2570# 
INASC 002532 878 940 954 965 976 987 10124 
I 013 1017* 1023* 1024 27684 
INIT 5 1830 19274 1974 2061 2198 
I 002272 824 54 861 868 883 9334 
5 19044 1934* 1993 
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IPAR6= 172354 S998 2315 2318% 2342* 2343 
KIPAR7= 172356 60048 1439 
KIPDRO= 172300 582A 
KIPDR1= 172302 5834 
KIPDR2= 172304 S844 
KIPDR3= 172306 S854 
KIPDRG4= 172310 5864 
KIPDRS= 172312 S874 
IPDR6= 172314 5884 
KIPDR7= 172316 5894 
011652 770 1353" 1372" #2227 2312 2338 2465 25874 
= 000012 4664 1629 1635 
011700 729% 26415 2423* 2425% 25984 
LOCKAD 011702 1933* 2419 25994 
66 18384 1876 
006710 19814 2018 
007176 20714 2114 
30 22144 2276 
36 19854 2012 
007232 20784 2 
010044 2239% 2267 
011614 25644 
11630 1513 25714 
011614 1492 25654 
11620 1499 25674 
011624 1506 25694 
11646 1354* 2371 25854 
= 000250 5714 
011644 1355* 1358* 1363* 2369 2385 25844 
010430 2301 23308 2352 2364 2373 
011670 818 836 845* 890 906* 25944 
011706 1375* 1376* 1377% £=°1378* $$§11379% 1380* 1381% 1382* 2358 26014 
= 177772 472 
= 240 5664 
012650 985 27094 
005134 757 760 763 766 773 821 839 875 892 937 951 962 973 
984 1519 15434 2202 2432 2436 2439 2442 2446 2451 2454 2459 2462 
2467 2470 2473 2480 2485 2488 2503 2506 2509 2512 2515 
012555 938 26974 
= 4894 
= 0 904 
= 000100 4914 
= 000140 4924 
= 200 4934 
= 000240 4944 
= 300 4954 
= 340 4964 
= 177776 4694 470 
= 177776 4704 
007514 2080 21394 2208 2239 
007522 21424 2146 
007530 2143 21454 
007546 2148 21514 
007552 2150 21524 
= 000024 5614 705* 706* 1775* £1776* £=+%1785* #+$+1791% £=‘1803* £1804 
= 104407 1229 17674 
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IRDLIN = 104410 1016 1306 + 4=«17684 
IRDOCT = 104411 1022 1769 
RECORD 011744 2062* 2156 2171" 2616M 
RESTAR 001334 726# 783 + ~«©1808 
RESVEC= 10 
SAVDEV 007554 2089 21564 
SELO = 020000 6044 1889 1890 2090 2245 
SETSW 012673 876 27138 
SIZE 312 898 13514 
SOS IEN= 6034 1865 1893 2007 
SPw 4000 1946 1949 2376 3376 2378 2380 27708 
SPWMVD 011764 1947 2375% 5381" 56244 
SPWPHY 011726 26094 
SRVO = 001000 607# 2102 2103 2262 2263 
SRO. = 177572 S75@ 772% «1420 s«1435* = 1442" 23218 
SRI. = (177574 576m 
SR2 = :177576 5778 
SR3. = 172516 5784 1432s 
STACK = 001100 4604 701 
START 001164 619 6944 1070 1153 
STKLMT= 177776 4718 

001140 6584 699 711" 713 719% 766 1073 1112 11678 1366 1783 1796* 2606 
24172421 2429 2449 

SWREG 000176 6174 719 1073 1112 1135 
SwO = 000001 526M 
swOO = 000001 514 526 
SwO1 = 000002 5134 533 
SwO2 = hy ny 
SwO3 = 000010 sila 531 
Sw04 = 000020 510# 520 
SwOS = 000040 509" ~=—s«519 
$wO6 = 000100 s08f ~—s«*S 18 
SwO7 = 000200 SO7# «517 
SwO8 = 000400 S064 2 s«516 
SwO9 = 001000 505#@ «515 
Sw? = 000002 5234 
Sw10 = 002000 5044 «1366 
Sw11 = 004000 5034 
SW12 = 010000 S024 2449 
Sw13 = 020000 501M = 3429 
Sw14 = 040000 500 3417 2421 
SW15 = 100000 4994" 5406 
Sw2 = 000004 5 22H 
Sw3 = 000010 So 1M 
Sw = 000020 5 50H 
ws 0 519" 

SwW6 = =: 000100 5184 
Sw7 = 000200 5178 
Sw8 = 000400 516m 
sw9 = 001000 5154 
TBITVE= 000014 5578 

011664 25924 

TESIN 012567 95 26998 
TKS 011662 25914 
TKVEC = 000060 5644 1050" 10518 
TPB. s«11660 2590# 
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‘TPS 011656 25898 
TPVEC = 000064 5654 
TR = 000034 5634 
TRTVEC= 000014 5584 
TST 001 364 7318 
TSTAB 001376 733 
TST] 006134 735 
TST2 56 736 
TST3. = 007124 737 
TST4 0076 738 
TT 015000 30284 
TYPE = 104401 067 
1256 
TYPOC = 104402 136 
TYPON = 104404 17624 
TYPOS = 104403 17618 
TOMSG 012215 2203 
VECTA 012630 974 
SAUTOB 1134 6554 
SBDADR 001122 6504 
SBDDAT 001126 6524 
SBELL 1079 
SCHARC 005422 1601* 
SCKSWR 0031 11128 
SCMTAG 001100 6384 
SCNTLC 0040 1067 
SCNTLG 004022 1133 
SCNTLU 004015 1158 
SCORE 004 1418 
SCRLF 001161 6694 
$CROUT 004716 1445 
SENDAD 001566 626 
SERFLG 001103 6414 
001115 6474 
SERRPC 001116 6484 
SERRTB 001164 6864 
SERTTL 001112 6454 
SFILLC 001156 
$FILLS 001155 6654 
SGDADR 001120 6494 
$GDDAT 001124 6514 
SGTSWR_ 005176 11 344 
SHIOCT 004210 1326 
SICNT 001104 6424 
SILLUP 006116 1775 
SINTAG 001135 6564 
SITEMB 001114 6464 
004660 
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1635 
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16324 


1338 1600 1635 
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SLSTBK 004766 1373. 1375. s«1383)=s«1458* © 14654 
[SMAIL = exewee Y 723 1588 
SMNEW 004040 1137 1282a 
SMSWR 004027 1134 1 
SNULL 001154 6644 6 
SOCNT 005650 1668* 1697" 17104 
SOMODE 005652 1663*  1667* 1672 1675* 1686* 17124 
SPASS 001100 6394 
SPOWER 006124 1806 18134 
SPWRAD 006112 18084 
SPWRDN 005752 705 17754 #81803 
SPWRMG 006106 18064 
SPWRUP 006024 1785 17914 
SQUES 001160 6684 # £1188 1259 1276 1335 1338 1635 
SRDCHR 003450 12014 1767 
SRDDEC= seeneee 1 
SRDLIN 003540 12244 1768 
004052 12 1769 
SRDSZ = 000010 12174 
SR2A = eeenee 1770 
SSAVRE= *eeee8 J 1770 
SSAVR6 006122 1784* 1792 1793* 1794* 18124 
SSETUP= 000114 6944 702 703 705 707 1071 1076 1077 1107 1284 
SSIZE 004460 1352 1369 14054 
SSIZEX 004722 1443 14534 
SSTUP = 177777 6944 
SSVPC = 000204 6244 29 
SSWR = 1 455 4564 668 1809 
STKB 001146 6614 1032 1052 °§=1063 1088 1116 1143 
STKCNT 002602 10334  #1047* £1077 1094* 1208 1210* 
STKINT 002620 1072 10474 1068 1129 
STKQEN= 002620 10374 1102 1213 
STKQIN 002604 10344 1048* 1049 1100* 1101* 1102 1104* 
$TKQOU ohSete 10354 1049 1211 1212* 1213 1215* 
STKQSR 002610 1048 1104 1215 
STKS 001144 1032 1053* 1084* 1086 1092* 1114 1130* 1140 1152* 1172* 
STKSRV 002670 1050 10634 
SIN = 1 4554 
001152 66 1624* 1635 
STPFLG 001157 6674 1582 1635 
STPS 001150 6624 1622 1635 
STRAP 005654 7 17324 
STRAP2 005714 17474 #81758 
STRP = 12 17514 17604 17614 17624 #17634 #41764 17654 1766 17674 17684 17694 #$=*‘1770€ 
STRPAD 005726 1741 17584 
STSTNM 001102 6404 
TTYIN 003774 1226 1227 1239 1257 1271 12754 
STYPBN= *eee08 1763 
TYPDS= *s*eee% 1763 
15824 #81751 1759 
1174 1603 1610 1617 16224 1623 
1628 1630 16334 
16664 1760 
1665 16684 1762 
16614 £1761 
1662* 1666* 1676 17114 
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CZDXJEO0 DX11-B8 ADDRESSING TEST MACY11 30A(1052) 24-MAR-80 09:45 + AGE 78 


CZDXJB.P11  24=MAR-80 09:31 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0076 
, = 016000 6118 615 626 6254 6274 6374 = 671 700~= «1 1 1037 
1038 1275 1276 1277 ~381286m 138g" eae 1787 1811 2769e ss grt | ve 


mr rr ee ae ew _— 





Sry mee ens yf TEST MACY11 30A(1052) 


-80 09:31 


1135 


1761 
457 
567 
694 


620 


609 
631 


1771 


6 
24-MAR-80 09:45 "PAGE 80 
CROSS REFERENCE TABLE == MACRO NAMES 





N 6 
CZDXJBO DX11=8 ADDRESSING TEST MACY11 30A(1052) 24-MAR-80 09:45 PAGE 81 


CZDxXJB.P11 24-MAR-80 09:31 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0078 
. SRAND Ww 

. SRDDE Fj 

. SRDOC 1A 4454 1285 
. SREAD lA 4454 

- SR2AZ la 

. SSAVE 14 

‘ if 

.- STRAP wa 4454 1724 
.STYPB Fj 

-STYPD 4 

.STYPE Ww 4454 1565 
.STYPO 14 4454 = 1 
$40CA 14 

.1170 14 


ERRORS DETECTED: 0 — , a 
CZDXJB.BIN, CZDXJB. SEQ/CRF/SOL=CZDXJB. SML,CZDXJB.P11 
RUN-TIME: 75 8 SECONDS 


: - 
RUN-TIME RATIO: 194/29=6.6 
CORE USED: 32K (63 PAGES) 


po eee 


